此主题相关图片如下:输入没有内容.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