Private Sub RadGridView2_RowFormatting(sender As Object, e As RowFormattingEventArgs) Handles RadGridView2.RowFormatting
Dim oRow As GridViewRowInfo = RadGridView2.CurrentRow
Dim intDecimalPlaceQuantity As Double = oRow.Cells("decplqty").Value
Dim decOriginalQty As Double = oRow.Cells("Quantity").Value
oRow.Cells("Quantity").Value = Common.GetFormattedAmount(intDecimalPlaceQuantity, decOriginalQty)
oRow.Cells("Quantity").ReadOnly = True
End Sub
Private Sub RadGridDragAndDrop1_RowFormatting(sender As Object, e As RowFormattingEventArgs) Handles RadGridDragAndDrop1.RowFormatting
Try
If e.RowElement.RowInfo.Cells("naflag").Value = 1 Then
e.RowElement.DrawFill = True
e.RowElement.ForeColor = Color.Red
e.RowElement.BackColor = Color.White
e.RowElement.BackColor2 = Color.White
e.RowElement.BackColor3 = Color.White
e.RowElement.BackColor4 = Color.White
Else
e.RowElement.ResetValue(LightVisualElement.BackColorProperty, Telerik.WinControls.ValueResetFlags.Local)
End If
Catch ex As Exception
End Try
End Sub