已有23人关注
在VB控件MSHFlexGrid中怎样使第2列数据为1的行自动滚动到可视范围
发表在VB答疑区 2006-12-06
是否精华
版块置顶:
老师,你好,我买了你们好几本书籍,都没有解决我下面的问题啊,你能给我在线示例解答吗??
在VB控件MSHFlexGrid中怎样使第2列数据为1的行自动滚动到可视范围。但不能改动数据的排序??说白了就是滚动条自动滚动到该行. --30分
回答可行后立即给分哦,谢谢你的帮助!!!
分享到:
精彩评论 1
Lemon
学分:0 LV1
2006-12-06
沙发
您好!
   下面的代码可以将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
首页上一页 1 下一页尾页 1 条记录 1/1页
手机同步功能介绍
友情提示:以下图书配套资源能够实现手机同步功能
明日微信公众号
明日之星 明日之星编程特训营
客服热线(每日9:00-17:00)
400 675 1066
mingrisoft@mingrisoft.com
吉林省明日科技有限公司Copyright ©2007-2022,mingrisoft.com, All Rights Reserved长春市北湖科技开发区盛北大街3333号长春北湖科技园项目一期A10号楼四、五层
吉ICP备10002740号-2吉公网安备22010202000132经营性网站备案信息 营业执照