1,216
社区成员
发帖
与我相关
我的任务
分享一个简单的问题。。还是困住我。。
我在窗体设计一个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
但是没有显示为红色。。。
让查询出的结果在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
但是没有显示为红色。。。
...全文
请发表友善的回复…
发表回复
northwolves 2005-12-10
- 打赏
- 举报
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
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
射天狼 2005-12-10
- 打赏
- 举报
我的网站上有控制表格行颜色的例子，对你有帮助，你可以看看。
VB资料->查询“MsFlexGrid”；
＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
免费的学习交流网站，欢迎大家访问！
http://www.j2soft.cn/
VB资料->查询“MsFlexGrid”；
＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
免费的学习交流网站，欢迎大家访问！
http://www.j2soft.cn/
laidon 2005-12-10
- 打赏
- 举报
If mgrid.TextMatrix(i, 1) = " & txtshuru.Text & " Then
楼主这句是什么意思？
If mgrid.TextMatrix(i, 1) = txtshuru.Text Then
这样不就行了吗？
你查的结果对不对啊
楼主这句是什么意思？
If mgrid.TextMatrix(i, 1) = txtshuru.Text Then
这样不就行了吗？
你查的结果对不对啊
wenelain 2005-12-10
- 打赏
- 举报
改了以后，还是原来的问题呢。。楼上的兄弟。。。
