| 以文本方式查看主题 - Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp) -- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2) ---- 【求助】关于筛选条件的问题 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=185123) |
| -- 作者：王小风 -- 发布时间：2023/2/5 17:53:00 -- 【求助】关于筛选条件的问题 老师们代码如下： Dim txt As String = e.Form.Controls("TextBox1").Text Dim tbl As Table = Tables("窗口1_Table1") If txt = "" Then tbl.Filter = "" Else txt = "\'%" & txt.replace("*","[*]").replace("%","[%]").replace("\'","\'\'") & "%\'" tbl.Filter = "识别码 Like " & txt & " Or 分类 Like " & txt & " Or 名称 Like " & txt & " Or 规格 Like " & txt & " Or 用途 Like " & txt & " Or 备注 Like " & txt & "and 库存数量>\'0\'" End If 条件"and 库存数量>\'0\'"不执行是什么道理呢？ 这个应该怎么写？
|
| -- 作者：有点蓝 -- 发布时间：2023/2/5 21:02:00 -- tbl.Filter = "(识别码 Like " & txt & " Or 分类 Like " & txt & " Or 名称 Like " & txt & " Or 规格 Like " & txt & " Or 用途 Like " & txt & " Or 备注 Like " & txt & ") and 库存数量>0"
|
| -- 作者：王小风 -- 发布时间：2023/2/6 16:30:00 -- 谢谢老师指导！ |