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


  共有3913人关注过本帖平板打印复制链接

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

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


加好友 发短信
等级:幼狐 帖子:88 积分:697 威望: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

 回到顶部