| 网站首页 | 业界新闻 | 群组 | 交易 | 人才 | 下载频道 | 博客 | 代码贴 | 编程论坛
大量收QQ微信精准粉/交友粉,非诚勿扰千里之行 始于足下
共有 1242 人关注过本帖
标题:VB中的DataGrid里怎么定位到某一条记录?
只看楼主 加入收藏
一只小白菜鸟
Rank: 1
等 级:新手上路
帖 子:2
专家分:0
注 册:2017-8-17
结帖率:100%
  已结贴   问题点数:20  回复次数:2   
VB中的DataGrid里怎么定位到某一条记录?
我不知道我描述的是否正确,看下下面的图片吧
就在定位的按钮里输入代码,在text里输入文字,然后点击按钮,就可以定位了,(图片里的记录是我自己点的,这个就是我最后想要的结果)
麻烦知道的大哥大姐大神指点一二


附件: 您没有浏览附件的权限,请 登录注册
2017-08-17 20:41
lhj56459897
Rank: 2
等 级:论坛游民
帖 子:19
专家分:47
注 册:2017-7-8
  得分:20 
此方法能选中定位,看左边头,不能实现选中状态
在form_load事件里
Adodc5.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + App.Path + "\vb1\KScount.mdb;Persist Security Info=False"‘根目录下vb1目录下有一个kscoun.mdb数据库
Adodc5.RecordSource = "select * from Tzy"      Tzy是kscount的一个表
Adodc5.Refresh
Set DataGrid1.DataSource = Adodc5
DataGrid1.Refresh

Private Sub Command9_Click()’按钮事件里
Dim i As Integer
i = 0
If Adodc5.Recordset.RecordCount > 0 Then
      Adodc5.Recordset.MoveFirst
      Do While Not Adodc5.Recordset.EOF
            i = i + 1
            If Adodc5.Recordset.Fields("姓名") = Trim(Text6.Text) Then Exit Do
            Adodc5.Recordset.MoveNext
      Loop
End If
If Adodc5.Recordset.RecordCount = i Then
   MsgBox ("没找到")
Else
   DataGrid1.Row = i - 1

   Text1.Text = Adodc5.Recordset.Fields("工号")
   Text2.text=Adodc5.Recordset.Fields("姓名")
  。。。。。。

End If
End Sub
2017-08-17 22:33
一只小白菜鸟
Rank: 1
等 级:新手上路
帖 子:2
专家分:0
注 册:2017-8-17
  得分:0 
回复 2楼 lhj56459897
嗯嗯,好的,谢谢啦
2017-08-18 09:50







关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.053585 second(s), 8 queries.
Copyright©2004-2018, BCCN.NET, All Rights Reserved