在VB控件MSHFlexGrid中怎样使第2列数据为1的行自动滚动到可视范围
老师,你好,我买了你们好几本书籍,都没有解决我下面的问题啊,你能给我在线示例解答吗??
在VB控件MSHFlexGrid中怎样使第2列数据为1的行自动滚动到可视范围。但不能改动数据的排序??说白了就是滚动条自动滚动到该行. --30分
回答可行后立即给分哦,谢谢你的帮助!!!
Lemon
学分:0 LV1
您好!
下面的代码可以将MSHFlexGrid控件中第2列数据为1的第一条记录(假设第2列中数据为1的记录有多条)显示在MSHFlexGrid控件的首行。
Dim a As Integer
Private Sub Command1_Click()
Adodc1.RecordSource = "select * from tb_mrsoft "
Adodc1.Refresh
Set MSHFlexGrid1.DataSource = Adodc1
For i = 0 To Adodc1.Recordset.RecordCount
a = a + 1
If Adodc1.Recordset.Fields(1) = 1 Then
GoTo mrsoft
End If
Adodc1.Recordset.MoveNext
Next i
mrsoft:
MSHFlexGrid1.TopRow = a
End Sub