vb高手（mshflexgrid控件问题）请进

你这个就是FLEX控件美化问题，各行使用不同的颜色，我本来有代码事先的，但我忘了，代码不在我家里的电脑上，在办公室电脑上有

看列
Private Sub setColor(msfg As MSFlexGrid, row As Long, color As Long, bkcolor As Long)
For i = 1 To msfg.Cols - 1
msfg.row = row
msfg.Col = i
msfg.CellForeColor = color '前景色
msfg.CellBackColor = bkcolor '背景色
Next
End Sub

Private Sub Command1_Click()
setColor MSFlexGrid1, 3, &HFFFF&, &H8000000D
End Sub

Private Sub Form_Load()
MSFlexGrid1.Rows = 5
MSFlexGrid1.Cols = 5
For i = 1 To 4
For j = 1 To 4
MSFlexGrid1.TextMatrix(i, j) = j
Next
Next
End Sub
你这题的答案为

Private Sub Command1_Click()

me.msflexgrid1.visable=false
Dim s As String
Dim s1 As String
Dim s2 As String
Dim i As Long
Dim j As Long
For i = 1 To Me.MSFlexGrid1.Rows - 1
s = Me.MSFlexGrid1.TextMatrix(i, 3)
s1 = Me.MSFlexGrid1.TextMatrix(i, 7)
s2 = Me.MSFlexGrid1.TextMatrix(i, 8)
If Trim(s) > Trim(s3) Then
For j = 1 To Me.MSFlexGrid1.Cols - 1
Me.MSFlexGrid1.Row = i
Me.MSFlexGrid1.Col = j
Me.MSFlexGrid1.CellBackColor = vbBlue
Next
ElseIf Trim(s) <= Trim(s3) And Trim(s) > Trim(s2) Then
For j = 1 To Me.MSFlexGrid1.Cols - 1
Me.MSFlexGrid1.Row = i
Me.MSFlexGrid1.Col = j
Me.MSFlexGrid1.CellBackColor = vbGreen

Next
Else
For j = 1 To Me.MSFlexGrid1.Cols - 1
Me.MSFlexGrid1.Row = i
Me.MSFlexGrid1.Col = j
Me.MSFlexGrid1.CellBackColor = vbRed
Next

End If

Next

me.msflexgrid1.visable=true
End Sub