专家坐堂-模糊查询时后台筛选Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  模糊查询时后台筛选  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=139298)

--  作者：Jaime
--  发布时间：2019/8/10 10:25:00
--  模糊查询时后台筛选

请教老师，模糊查询框的代码在加载表时筛选正常，但我希望实现不加载该表（在后台筛选），想用SQLSelect方式，如何更改以下代码：

Dim txt As String = e.Form.Controls("TextBox1").Text
Dim tbl As Table = Tables("窗口1_Table1")
If txt = "" Then
tbl.Filter = ""
Else
txt = "\'%" & txt & "%\'"
tbl.Filter = "物资名称 Like " & txt & " Or 三类名称 Like " & txt & " Or 物资编码 Like " & txt & " Or 三类编码 Like " & txt
End If

--  作者：有点蓝
--  发布时间：2019/8/10 10:35:00
--

Dim txt As String = e.Form.Controls("TextBox1").Text
Dim tbl As Table = Tables("窗口1_Table1")
If txt = "" Then
tbl.Filter = ""
Else
txt = "\'%" & txt & "%\'"
tbl.datatable.loadFilter = "物资名称 Like " & txt & " Or 三类名称 Like " & txt & " Or 物资编码 Like " & txt & " Or 三类编码 Like " & txt
tbl.datatable.load
End If

--  作者：Jaime
--  发布时间：2019/8/10 11:07:00
--
谢谢蓝老师！查询问题好了。

现在在窗口查询结果里双击所选行，会自动输入“物资编码”到表内，我想同时让本行的“物资名称” “三类名称”也同时自动输入在对应的位置，请问怎么改

\'----在窗口的Table中双击某行,即可将该行的物资组编码输入到物料信息表的当前行中,并关闭下拉窗口----
Dim tbl As Table = Tables("窗口1_Table1")
If tbl.Current IsNot Nothing Then
e.Form.DropDownBox.Value = tbl.Current("物资编码")
End If
e.Form.DropDownBox.CloseDropDown()

--  作者：有点蓝
--  发布时间：2019/8/10 11:21:00
--

Dim tbl As Table = Tables("窗口1_Table1")
If tbl.Current IsNot Nothing Then
e.Form.DropDownBox.Value = tbl.Current("物资编码")
dim r as row = Tables("物料信息表").current
r("物资名称") =  tbl.Current("物资名称")
r("三类名称") =  tbl.Current("三类名称")
End If
e.Form.DropDownBox.CloseDropDown()

--  作者：Jaime
--  发布时间：2019/8/10 22:29:00
--
测试了OK，非常感谢蓝老师！