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

以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  求助：窗体有表格，查找没反应或无法显示定位  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=146044)

--  作者：zhyqs
--  发布时间：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
End If

--  作者：有点蓝
--  发布时间：2020/2/14 21:08:00
--
窗口表是副本？

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

--  作者：zhyqs
--  发布时间：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编辑过]

--  作者：有点蓝
--  发布时间：2020/2/14 21:38:00
--

Dim rm As WinForm.TextBox = e.Form.Controls("TextBox1")
Dim str As String = rm.value
Dim idr As Integer = Tables("脉络").FindRow("名 like \'%" & str & "%\'")
If idr >= 0 Then
Tables("脉络").Position = idr \'定位该行
End If

--  作者：zhyqs
--  发布时间：2020/2/14 21:48:00
--
非常感谢！后面这个代码成功了，之前我也加了LIKE 也不行，我来仔细看看