一个简单的问题。。还是困住我。。

Question

我在窗体设计一个MSFlexGrid控件已经显示数据库中一个表的内容，当我查询某一个数据时，
让查询出的结果在MSFlexGrid里显示的颜色加深
MSFlexGrid控件的名字为 mgrid 查询按钮为Command1 查询输入的文本框为txtshuru
MSFlexGrid控件的第一列为查询的列我写的代码如下：
Private Sub Command1_Click()
 Dim i As Long
 For i = 0 To mgrid.Rows - 1
   If mgrid.TextMatrix(i, 1) = " & txtshuru.Text & " Then
     mgrid.Row = i
     mgrid.CellBackColor = vbRed
      End If
    Next i
End Sub
但是没有显示为红色

Answer 1

If mgrid.TextMatrix(i, 1) = " & txtshuru.Text & " Then
楼主这句是什么意思？
If mgrid.TextMatrix(i, 1) =  txtshuru.Text Then
这样不就行了吗？
你查的结果对不对啊

Answer 2

我的网站上有控制表格行颜色的例子，对你有帮助，你可以看看。VB资料->查询“MsFlexGrid”；＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
免费的学习交流网站，欢迎大家访问！
http://www.j2soft.cn/

Answer 3

Private Sub Command1_Click()
 Dim i As Long
 For i = 0 To mgrid.Rows - 1
   If mgrid.TextMatrix(i, 1) = txtshuru.Text  Then
     mgrid.Row = i
     mgrid.col = 1
     mgrid.CellBackColor = vbRed
     End If
    Next i
End Sub