eg:
Private Sub GridM_FetchCellTips(ByVal SplitIndex As Integer, ByVal ColIndex As Integer, ByVal RowIndex As Long, CellTip As String, ByVal FullyDisplayed As Boolean, ByVal TipStyle As TrueOleDBGrid70.StyleDisp)
If ColIndex <> 2 Then Exit Sub
CellTip = "默认厂商代码:" + GetDefaultCS(Me.GridM.Columns(ColIndex))
FullyDisplayed = True
TipStyle.ForeColor = RGB(0, 0, 255)
End Sub
Private Sub GridM_FetchRowStyle(ByVal Split As Integer, Bookmark As Variant, ByVal RowStyle As TrueOleDBGrid70.StyleDisp)
If Me.GridM.Columns(0).CellValue(Bookmark) = 0 Then
RowStyle.ForeColor = RGB(255, 0, 0)
End If
End Sub