将True DBGrid 列的FetchStyle设置为true,让它可以触发Grdgrid_FetchCellStyle事件,然后在事件中:
Private Sub Grdgrid_FetchCellStyle(ByVal Condition As Integer, ByVal Split As Integer, Bookmark As Variant, ByVal Col As Integer, ByVal CellStyle As TrueOleDBGrid80.StyleDisp)
‘第二行设置为红色
If Bookmark = 2 Then
CellStyle.BackColor = vbRed
End If