vb高手帮忙MSHFlexGrid1

来源：百度知道 编辑：UC知道 时间：2024/09/24 19:23:36
MSHFlexGrid1，当数据库中的字段某一字段为“无效时”，此行显示为红色！

Dim r As Integer
Dim c As Integer
Dim col As Integer
col = 16
With Me.MSHFlexGrid1

For r = 1 To .Rows - 1
If .TextMatrix(r, col) = "无效时" Then
.Row = r
For c = 0 To .Cols - 1
.col = c
.CellBackColor = vbRed
Next
End If
Next

End With

百度Hi联系~