|
AddHandler Me.gridGroupingControl1.QueryCellStyleInfo, AddressOf GridGroupingControl1_QueryCellStyleInfo
Private Sub GridGroupingControl1_QueryCellStyleInfo(ByVal sender As Object, ByVal e As GridTableCellStyleInfoEventArgs)
If e.TableCellIdentity Is Nothing OrElse e.TableCellIdentity.Column Is Nothing Then
Return
End If
'To get the specific column
If e.TableCellIdentity.Column.Name = "Freight" AndAlso e.TableCellIdentity.DisplayElement IsNot Nothing AndAlso e.TableCellIdentity.DisplayElement.Kind = Syncfusion.Grouping.DisplayElementKind.Record Then
Dim text As String = e.Style.CellValue.ToString()
Dim value As Double
If Double.TryParse(text, value) Then
If value > 1000 Then
e.Style.BackColor = Color.Red
e.Style.TextColor = Color.White
End If
End If
End If
End Sub |
