Foxtable(狐表)用户栏目专家坐堂 → [求助]模糊查找不成功


  共有5797人关注过本帖树形打印复制链接

主题:[求助]模糊查找不成功

帅哥哟,离线,有人找我吗?
mengxxaa
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:98 积分:843 威望:0 精华:0 注册:2022/10/10 15:34:00
[求助]模糊查找不成功  发帖心情 Post By: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

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:111393 积分:567029 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2022/12/14 11:16:00 [只看该作者]

代码看起来没有问题,请上传实例测试

 回到顶部
帅哥哟,离线,有人找我吗?
mengxxaa
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:98 积分:843 威望:0 精华:0 注册:2022/10/10 15:34:00
  发帖心情 Post By:2022/12/14 13:47:00 [只看该作者]

实际操作是使用外部数据表的,根据场景做了个实例。发现窗口都调用不出来,请老师帮查查看
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:实例.zip


 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:111393 积分:567029 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2022/12/14 14:10:00 [只看该作者]

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目1.zip


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


 回到顶部