专家坐堂-帮助中"自定义录入界面之三"模糊筛选求助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=119630)

--  作者：蓝蚂蚁
--  发布时间：2018/5/29 8:42:00
--  帮助中"自定义录入界面之三"模糊筛选求助

此主题相关图片如下：广西1.jpg
其中，DropDownOpened的原代码如下：
------------------------------------
Dim txt As String = e.Form.DropDownBox.Text
Dim tbl As Table = Tables("输入注册证号弹出筛选窗口_Table1")
If txt = "" Then
tbl.Filter = "停用=false"
Else
txt = "\'%" & txt & "%\'"
tbl.Filter = "停用=false and (名称 Like " & txt & " Or 注册证号 Like " & txt & " Or 生产企业 Like " & txt & ")"
End If
e.Form.DropDownBox.Select() \'将输入焦点返回下拉列表框
-----------------------------------------------

按照我图片的期望，是不是理解成加多后面红色字体的代码段上去，但如何加呢？望老师解答。【 tbl.Filter = "停用=false and A（配送公司）=B（配送公司） and (名称 Like " & txt & " Or 注册证号 Like " & txt & " Or 生产企业 Like " & txt & ")"】

--  作者：有点甜
--  发布时间：2018/5/29 8:57:00
--
tbl.Filter = "停用=false and 配送公司=\'" & e.form.dropTable.current("配送公司") & "\' and (名称 Like " & txt & " Or 注册证号 Like " & txt & " Or 生产企业 Like " & txt & ")"
[此贴子已经被作者于2018/5/29 9:36:42编辑过]

--  作者：蓝蚂蚁
--  发布时间：2018/5/29 9:31:00
--
老师按照你的提示把原代码修改后，进行操作时系统提示：
.NET Framework 版本：2.0.50727.5466
Foxtable 版本：2018.3.9.1
错误所在事件：计划来货登记表,ChangeEdit
详细错误信息：
未将对象引用设置到对象的实例。
修改后的代码：tbl.Filter = "停用=false and 配送公司=\'" & e.form.dropTable.current("配送公司") & "\' (名称 Like " & txt & " Or 注册证号 Like " & txt & " Or 生产企业 Like " & txt & ")"

提示错误后改回原来的代码，运行就没问题：tbl.Filter = "停用=false and (名称 Like " & txt & " Or 注册证号 Like " & txt & " Or 生产企业 Like " & txt & ")"

[此贴子已经被作者于2018/5/29 9:33:14编辑过]

--  作者：有点甜
--  发布时间：2018/5/29 9:36:00
--

ChangeEdit

tbl.Filter = "停用=false and 配送公司=\'" & e.row("配送公司") & "\' and (名称 Like " & txt & " Or 注册证号 Like " & txt & " Or 生产企业 Like " & txt & ")"

[此贴子已经被作者于2018/5/29 9:36:30编辑过]

--  作者：有点甜
--  发布时间：2018/5/29 9:37:00
--

DropDownOpened

tbl.Filter = "停用=false and 配送公司=\'" & e.form.dropTable.current("配送公司") & "\' and (名称 Like " & txt & " Or 注册证号 Like " & txt & " Or 生产企业 Like " & txt & ")"

--  作者：蓝蚂蚁
--  发布时间：2018/5/29 9:47:00
--

提示有错误！
.NET Framework 版本：2.0.50727.5466
Foxtable 版本：2018.3.9.1
错误所在事件：
详细错误信息：
表达式中有语法错误。
这是ChangeEdit的代码：
If e.Col.Name = "注册证号" Then \'如果编辑的是客户ID列
If e.Col.DroppedDown Then \'如果下拉窗口已经打开
Dim tbl As Table = Tables("输入注册证号弹出筛选窗口_Table1")
If e.Text = "" Then \'如果内容为空
tbl.Filter = "停用=false" \'显示所有客户
Else \'否则根据输入内容进行模糊筛选
Dim txt As String = "\'%" & e.Text & "%\'"
\'tbl.Filter = "注册证号 Like " & txt & " Or 生产企业 Like " & txt & " Or 名称 Like " & txt & " Or 规格型号 Like " & txt &""
tbl.Filter = "停用=false and 配送公司=\'" & e.Row("配送公司")& "\' (名称 Like " & txt & " Or 注册证号 Like " & txt & " Or 生产企业 Like " & txt & ")"
End If
End If
End If

下面是DropDownOpened的代码：
Dim txt As String = e.Form.DropDownBox.Text
Dim tbl As Table = Tables("输入注册证号弹出筛选窗口_Table1")
If txt = "" Then
tbl.Filter = "停用=false"
Else
txt = "\'%" & txt & "%\'"
\'tbl.Filter = "停用=false and (名称 Like " & txt & " Or 注册证号 Like " & txt & " Or 生产企业 Like " & txt & ")"
tbl.Filter = "停用=false and 配送公司=\'" & e.form.dropTable.current("配送公司") & "\' (名称 Like " & txt & " Or 注册证号 Like " & txt & " Or 生产企业 Like " & txt & ")"
End If
e.Form.DropDownBox.Select() \'将输入焦点返回下拉列表框

[此贴子已经被作者于2018/5/29 9:51:04编辑过]

--  作者：有点甜
--  发布时间：2018/5/29 9:51:00
--
tbl.Filter = "停用=false and 配送公司=\'" & e.Row("配送公司")& "\' and (名称 Like " & txt & " Or 注册证号 Like " & txt & " Or 生产企业 Like " & txt & ")"

--  作者：蓝蚂蚁
--  发布时间：2018/5/29 9:56:00
--
完美了谢谢老师是我太粗心了再次表示感谢。