求助：窗体有表格，查找没反应或无法显示定位 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 求助：窗体有表格，查找没反应或无法显示定位

共有4863人关注过本帖树形打印复制链接主题：求助：窗体有表格，查找没反应或无法显示定位

zhyqs

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

等级：婴狐帖子：6 积分：101 威望：0 精华：0 注册：2020/2/5 18:11:00

求助：窗体有表格，查找没反应或无法显示定位 发帖心情

Post By：2020/2/14 20:31:00 [显示全部帖子]

Dim rm As WinForm.TextBox = e.Form.Controls("TextBox1")

Dim str As String = rm.value

Dim dr As DataRow = DataTables("脉络").Find("名 = '" & str & "'")

If dr IsNot Nothing Then

Dim idr As String = Tables("脉络").FindRow(dr)

If idr >= 0 Then

Tables("脉络").Position = idr '定位该行

End If

zhyqs

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

等级：婴狐帖子：6 积分：101 威望：0 精华：0 注册：2020/2/5 18:11:00

Post By：2020/2/14 21:35:00 [显示全部帖子]

谢谢版主回复！窗口表不是副本，已知单元格内容为德全两个字，查找全，没反应，查找德全，提示该table的名称不存在

Dim rm As WinForm.TextBox = e.Form.Controls("TextBox1")

Dim str As String = rm.value

Dim idr As Integer = Tables("脉络").FindRow("名 = '" & str & "'")

If idr >= 0 Then

Tables("脉络查录_table1").Position = idr '定位该行

End If

[此贴子已经被作者于2020/2/14 21:42:21编辑过]

zhyqs

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

等级：婴狐帖子：6 积分：101 威望：0 精华：0 注册：2020/2/5 18:11:00

Post By：2020/2/14 21:48:00 [显示全部帖子]

非常感谢！后面这个代码成功了，之前我也加了LIKE 也不行，我来仔细看看

主题：求助：窗体有表格，查找没反应或无法显示定位