[求助]定位到该行 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]定位到该行

共有10036人关注过本帖树形打印复制链接主题：[求助]定位到该行

lifeofyiyi

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：幼狐帖子：180 积分：1582 威望：0 精华：0 注册：2011/8/30 10:28:00

[求助]定位到该行 发帖心情

Post By：2012/2/15 10:32:00 [显示全部帖子]

我想问一下，输入编号，查询到与输入编号对应的行之后，定位到该行的代码怎么写呢

[此贴子已经被作者于2012-2-15 10:40:09编辑过]

lifeofyiyi

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：幼狐帖子：180 积分：1582 威望：0 精华：0 注册：2011/8/30 10:28:00

[求助]

Post By：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

End With

老大这样写的话好像一直往下加一行定位了

lifeofyiyi

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：幼狐帖子：180 积分：1582 威望：0 精华：0 注册：2011/8/30 10:28:00

[求助]

Post By：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
刚试了下这个也可以实现，就是不知道会不会有什么错误

主题：[求助]定位到该行