以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  通过ComboBox内容，定位到的所在行，有时不起作用【解决】  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=64140)
--  作者：bagih
--  发布时间：2015/2/5 18:58:00
--  通过ComboBox内容，定位到的所在行，有时不起作用【解决】
COMBOBOX1 启用了输入助手  列表项目内数据列是‘用户’表

Dim i As String = Forms("用户管理窗口").Controls("ComboBox1").text
Dim dr As DataRow
dr = DataTables("用户").Find("[姓名] = \'" & i & "\'")
If dr IsNot Nothing Then
    Dim wz As Integer = Tables("用户").FindRow(dr)
    If wz >= 0 Then
        Tables("用户").Position = wz
    End If 
End If
用户表内有200多条数据，有重名的存在。
在别处抄来的代码，大部分情况执行正常，但有时候不起作用，求助各位老师，谢谢啦

还是用模糊搜索吧dr = DataTables("用户").Find("[姓名] Like \'%" & i & "%\'")
[此贴子已经被作者于2015/2/8 10:50:02编辑过]
--  作者：有点甜
--  发布时间：2015/2/5 19:09:00
--  

Dim i As String = Forms("用户管理窗口").Controls("ComboBox1").text
Dim dr As DataRow
dr = DataTables("用户").Find("[姓名] = \'" & i & "\'")
If dr IsNot Nothing Then
    Tables("用户").Filter = ""
    Dim wz As Integer = Tables("用户").FindRow(dr)
    If wz >= 0 Then
        Tables("用户").Position = wz
    End If
End If
--  作者：bagih
--  发布时间：2015/2/5 19:29:00
--  
怪了，还是那样，一部分可行，另外一部就是查不出来
--  作者：有点甜
--  发布时间：2015/2/5 19:47:00
--  
以下是引用bagih在2015-2-5 19:29:00的发言：
怪了，还是那样，一部分可行，另外一部就是查不出来

 

不可能。若有错，就是条件不符合。
--  作者：bagih
--  发布时间：2015/2/6 20:52:00
--  
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:测试.table


实在查不出来了，把这代码弄了个例子，还是出错，各位朋友看到，可以给帮助看一下。谢谢
[此贴子已经被作者于2015-2-6 21:02:10编辑过]