DataGrid

当datagrid控件里“婚否”这一列的布尔值为true时，这一行为红色，值为false时，行为白色，想达到这样的效果应该如何编写，编写后效果如图。

'下面是我用MSHFlexGrid控件编写的。
Private Sub mColor_Click()
For I = 1 To MSHFlexGrid1.Rows - 1
MSHFlexGrid1.Row = I
MSHFlexGrid1.Col = 3
If MSHFlexGrid1.Text > 0 Then
MSHFlexGrid1.CellForeColor = vbRed ' 红色
MSHFlexGrid1.Col = 2
MSHFlexGrid1.CellForeColor = vbRed
ElseIf MSHFlexGrid1.Text < 0 Then
MSHFlexGrid1.CellForeColor = vbGreen ' 绿色
MSHFlexGrid1.Col = 2
MSHFlexGrid1.CellForeColor = vbGreen
End If
Next
End Sub

DataGrid就没有什么可以达到这种效果的方法了嘛？？

学习了