- 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=53738)
-- 发布时间：2014/7/14 17:17:00
-- 筛选
请教一下，为什么从应用窗口进入，用染号代号筛选不出来，但是从设计窗口里面的预览里面进去又可以，这是什么原因？
代码如下：Dim filter As String
Dim sts() As String = {"染料代号","存货名称","供应商"}
For Each st As String In sts
Dim var As String = e.Form.controls(st).value
If var IsNot Nothing Then
var = var.replace("*","[*]")
If filter <> "" Then
filter = filter & " And " & st & " Like \'*" & var & "*\'"
Else
filter = st & " like \'*" & var & "*\'"
End If
End If
Next
Tables("物料信息").filter = filter
此主题相关图片如下：qq图片20140714171313.jpg
此主题相关图片如下：qq图片20140714171324.jpg
-- 发布时间：2014/7/14 17:20:00
--
你代码写在什么事件?
-- 发布时间：2014/7/14 17:21:00
--
不可能吧？试试这样，不行，就是上次例子
Dim filter As String = “”
Dim sts() As String = {"染料代号","存货名称","供应商"}
For Each st As String In sts
Dim var As String = e.Form.controls(st).Text
If var IsNot Nothing Then
var = var.replace("*","[*]")
If filter <> "" Then
filter = filter & " And " & st & " Like \'*" & var & "*\'"
Else
filter = st & " like \'*" & var & "*\'"
End If
End If
Next
Tables("物料信息").filter = filter
-- 发布时间：2014/7/14 17:21:00
--
e.Form.controls(st).value 改为 e.Form.controls(st).TExt 看看