TDBGRID如何根据某一列的值不同而设置行的颜色？急急急～～～～

Question

同上.由于功能需求不能用MSFLEXGRID~~~

Answer 1

TDBGrid1.FetchRowStyle = True然后
Private Sub TDBGrid1_FetchRowStyle(ByVal Split As Integer, Book As Variant, ByVal RowStyle As TrueOleDBGrid70.StyleDisp)
    If TDBGrid1.Columns("条件字段").CellText(Book) = "红" Then
        RowStyle.BackColor = vbRed
    End If
End Sub