How do I add color to rows in the SalesLogix History datagrid based on values?

Question:

How do you change the row color in the history grid for each row equal to a value in the SalesLogix history.description field? We have tried the examples posted in the forum, but they don’t work. No errors, just nothing happens. We are using SLX 7.2.

Answer:

Sub grdHistoryCustomDrawCell(Sender, ByRef Node, ByRef Column, IsSelected, IsFocused, ByRef Text, ByRef Color, ByRef Alignment, ByRef Font, ByRef FontColor)

Dim sFieldName
Dim vStatus
Dim lColumnIndex

sFieldName = UCase ( Column.FieldName ) ‘ Field you want to look for

Select Case sFieldName
Case “CATEGORY” ‘ ALIAS name of the column in QB
lColumnIndex = GetColumnIndexByFieldName ( grdHistory,”CATEGORY” ) ‘ Used so that grid can be sorted/grouped
vStatus = Node.Values ( lColumnIndex ) ‘ Gets the actual value
End Select

If Not IsNull ( vStatus ) Then ‘ Ensure you check for Nulls

Select Case vStatus
Case “Escalation”
Color = &H000000FF
Font.Bold = True
End Select
End If

End Sub

Function GetColumnIndexByFieldName ( ByRef Grid, ByVal FieldName )
Dim i
Dim lColumnIndex

lColumnIndex = -1
For i = 0 To Grid.Columns.Count – 1
If UCase ( Grid.Columns(i).FieldName ) = UCase ( FieldName ) Then
lColumnIndex = i
Exit For
End If
Next
GetColumnIndexByFieldName = lColumnIndex
End Function