Imports Infragistics.Shared
Imports Infragistics.Win
Imports Infragistics.Win.UltraWinGrid
Private Sub UltraGrid1_SummaryValueChanged(ByVal sender As Object, ByVal e As Infragistics.Win.UltraWinGrid.SummaryValueChangedEventArgs) Handles ultraGrid1.SummaryValueChanged
' Use the key to identify what summary the SummaryValue object is associated with
' and set appearance properties accordingly.
If e.SummaryValue.Key = "Max" Then
If CType(e.SummaryValue.Value, Decimal) < 20 Then
' If the max is less than han 40, then highlight the summary with red color
' by setting the back color to red
e.SummaryValue.Appearance.BackColor = Color.LightYellow
Else
e.SummaryValue.Appearance.BackColor = Color.SkyBlue
End If
End If
If e.SummaryValue.Key = "Avg" Then
If CType(e.SummaryValue.Value, Decimal) > 20 Then
' If the sum is greater than 20, then highlight the summary with red color
' by setting the back color to red
e.SummaryValue.Appearance.BackColor = Color.LightSkyBlue
Else
e.SummaryValue.Appearance.BackColor = Color.LightYellow
End If
End If
End Sub