- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助]模糊查找不成功 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=184574)
-- 发布时间：2022/12/14 11:11:00
-- [求助]模糊查找不成功
此主题相关图片如下：输入没有内容.png
这个帮助中：http://www.foxtable.com/webhelp/index.htm?page=2122.htm，要求
此主题相关图片如下：全部数据.png
客户表中数据保持唯一性才能模糊查找吗？
我参照这个例子，做了个窗口，不能模糊查找。
窗口DropDownOpened代码：
Dim txt As String = e.Form.DropDownBox.Text
Dim tbl As Table = Tables("打印送货单_Table1")
If txt = "" Then
tbl.Filter = ""
Else
txt = "\'%" & txt & "%\'"
tbl.Filter = "dnd_dn Like " & txt & " Or dnd_cust Like " & txt\'按单号，客户名称模糊查找
End If
e.Form.DropDownBox.Select() \'将输入焦点返回下拉列表框
表单ChangeEdit事件
If e.Col.Name = "dn_dh" Then \'如果编辑的是送货单号列
If e.Col.DroppedDown Then \'如果下拉窗口已经打开
Dim tbl As Table = Tables("打印送货单_Table1")
If e.Text = "" Then \'如果内容为空
tbl.Filter = "" \'显示所有客户
Else \'否则根据输入内容进行模糊筛选
Dim txt As String = "\'%" & e.Text & "%\'"
tbl.Filter = tbl.Filter = "dnd_dn Like " & txt & " Or dnd_cust Like " & txt\'按单号，客户名称模糊查找
End If
End If
End If
-- 发布时间：2022/12/14 11:16:00
--
代码看起来没有问题，请上传实例测试
-- 发布时间：2022/12/14 13:47:00
--
实际操作是使用外部数据表的，根据场景做了个实例。发现窗口都调用不出来，请老师帮查查看
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:实例.zip |
-- 发布时间：2022/12/14 14:10:00
--
| 下载信息 [文件大小： 下载次数： ] | |
| 点击浏览该文件:管理项目1.zip |
此主题相关图片如下：1.png