- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 求大神解疑 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=78195)
-- 发布时间：2015/12/3 22:44:00
-- 求大神解疑
Dim cj As WinForm.ComboBox = e.Form.Controls("厂家")
Dim wlmc As WinForm.ComboBox = e.Form.Controls("物料名称")
Dim wlbh As WinForm.TextBox = e.Form.Controls("物料编号")
Dim xhgg As WinForm.TextBox = e.Form.Controls("型号规格")
Tables("物料信息表").Filter="供货厂家 = \'" & cj.text & "\' and 物料名称 = \'" & wlmc.text & "\' and 物料编号 like \'*" & wlbh.text & "*\' and 型号规格 like \'*" & xhgg.text & "*\'"
我想问一下，为什么我做的这个统计程序，必须要查询完供货厂家和物料名称后才能使用模糊查找？
此主题相关图片如下：qq截图20151203223746.png
能不能直接进行模糊查找？我的程序该如何改呢？
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目1.table |
-- 发布时间：2015/12/3 23:03:00
--
Dim cj As WinForm.ComboBox = e.Form.Controls("厂家")
Dim wlmc As WinForm.ComboBox = e.Form.Controls("物料名称")
Dim wlbh As WinForm.TextBox = e.Form.Controls("物料编号")
Dim xhgg As WinForm.TextBox = e.Form.Controls("型号规格")
Dim filter As String = "1=1"
If cj.text > "" Then
filter &= " and 供货厂家 = \'" & cj.Text & "\'"
End If
If wlmc.text > "" Then
filter &= " and 物料名称 Like \'*" & wlmc.Text & "*\' "
End If
If wlbh.text > "" Then
filter &= " and 物料编号 Like \'*" & wlbh.Text & "*\' "
End If
If xhgg.text > "" Then
filter &= " and 型号规格 Like \'*" & xhgg.Text & "*\'"
End If
Tables("物料信息表").Filter = filter