以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]定位到该行  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=16471)
--  作者：lifeofyiyi
--  发布时间：2012/2/15 10:32:00
--  [求助]定位到该行
我想问一下，输入编号，查询到与输入编号对应的行之后，定位到该行的代码怎么写呢
[此贴子已经被作者于2012-2-15 10:40:09编辑过]
--  作者：狐狸爸爸
--  发布时间：2012/2/15 10:48:00
--  

参考：

 

http://www.foxtable.com/help/topics/0552.htm

http://www.foxtable.com/help/topics/0553.htm

 
--  作者：lifeofyiyi
--  发布时间：2012/2/15 13:39:00
--  [求助]
Dim i As String = Forms("评估方案指引单编号输入").Controls("TextBox1").text
With Tables("基本信息录入")
    Dim r As Integer
    Dim dr As DataRow
    For Each dr In DataTables("基本信息录入").DataRows
    r = .FindRow(dr("编号")=i, .Position + 1, True ) 
    If r >= 0 Then 
        .Position = r 
    End If
Next
End With

老大这样写的话好像一直往下加一行定位了
--  作者：blackzhu
--  发布时间：2012/2/15 14:26:00
--  
 
Dim i As String = Forms("评估方案指引单编号输入").Controls("TextBox1").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
--  作者：lifeofyiyi
--  发布时间：2012/2/15 14:47:00
--  [求助]
谢谢老大，原来是  "[编号] = \'" & i & "\'"  
这个地方没掌握好！得去多看看
Dim i As String = Forms("评估方案指引单编号输入").Controls("TextBox1").text
With Tables("基本信息录入")
    Dim r As Integer
    r = .FindRow("[编号] = \'" & i & "\'", .Position + 1, True ) 
    If r >= 0 Then 
        .Position = r 
    End If
End With
刚试了下这个也可以实现，就是不知道会不会有什么错误