以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]模糊查找不成功  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=184574)

--  作者:mengxxaa
--  发布时间: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
--  
代码看起来没有问题,请上传实例测试
--  作者:mengxxaa
--  发布时间:2022/12/14 13:47:00
--  
实际操作是使用外部数据表的,根据场景做了个实例。发现窗口都调用不出来,请老师帮查查看
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:实例.zip


--  作者:有点蓝
--  发布时间:2022/12/14 14:10:00
--  
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目1.zip


图片点击可在新窗口打开查看此主题相关图片如下:1.png
图片点击可在新窗口打开查看