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 SubPrivate Sub GridM_FetchRowStyle(ByVal Split As Integer, Book As Variant, ByVal RowStyle As TrueOleDBGrid70.StyleDisp) If Me.GridM.Columns(0).CellValue(Book) = 0 Then RowStyle.ForeColor = RGB(255, 0, 0) End If End Sub
2: 安装后会有专门的帮助吧。
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 SubPrivate Sub GridM_FetchRowStyle(ByVal Split As Integer, Book As Variant, ByVal RowStyle As TrueOleDBGrid70.StyleDisp)
If Me.GridM.Columns(0).CellValue(Book) = 0 Then
RowStyle.ForeColor = RGB(255, 0, 0)
End If
End Sub
你可以找一些MSHFlexGrid 和 DataGrid的使用例子
基本上在TDB上都通用