以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- 下拉窗口根据条件模糊查找 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=139524) |
-- 作者:狐狸爸爸 -- 发布时间:2019/8/15 8:47:00 -- 帮助中使用下拉窗口进行模糊查找的例子: http://www.foxtable.com/webhelp/topics/2466.htm |
-- 作者:有点蓝 -- 发布时间:2019/8/16 8:35:00 -- 开启复选框:http://www.foxtable.com/webhelp/topics/1776.htm 然后参考这里的返回逻辑:http://www.foxtable.com/webhelp/topics/2478.htm
|
-- 作者:有点蓝 -- 发布时间:2019/8/23 9:37:00 -- 加一个条件:标准使用状态 <> \'停止使用\' |
-- 作者:有点蓝 -- 发布时间:2019/8/23 9:51:00 -- If txt = "" Then tbl.Filter = "标准使用状态 <> \'停止使用\'" Else txt = "\'%" & txt & "%\'" tbl.Filter = "标准使用状态 <> \'停止使用\' and (大类 Like " & txt & " Or 中类 Like " & txt & " Or 小类 Like " & txt & "Or 任务标准描述 Like " & txt & " Or 标准用时 Like " & txt & " Or 标准人数 Like " & txt & " Or 标准工价 Like " & txt & " Or 标准编码 Like " & txt & " Or 任务模版 Like " & txt & " Or 任务描述编码 Like " & txt & “)” End If |
-- 作者:有点蓝 -- 发布时间:2019/8/23 10:27:00 -- 不可能,除非数据有问题。 如果只有2种状态,改为这样试试:标准使用状态 = \'使用中\'
|
-- 作者:有点蓝 -- 发布时间:2019/8/23 12:16:00 -- Dim drp As WinForm.DropDownBox = e.sender If drp.DroppedDown Then \'如果下拉窗口已经打开 Dim tbl As Table = Tables("任务标准库_Table1") Dim filter As String = "标准使用状态 <> \'停止使用\'" If drp.Text > "" Then \'如果内容为空 Dim txt As String = "\'%" & drp.Text & "%\'" filter = filter & " and 任务标准描述 Like " & txt End If tbl.DataTable.LoadFilter = Filter tbl.DataTable.Load End If
|
-- 作者:有点蓝 -- 发布时间:2019/9/3 21:48:00 -- 参考:http://www.foxtable.com/webhelp/topics/2631.htm |