以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  字段里有空格怎么筛选  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=93643)
--  作者：实话实说
--  发布时间：2016/12/3 8:28:00
--  字段里有空格怎么筛选

以下是目录树的筛选代码(含物料编码)现在型号规格字段里含有空格, Case 2下的代码如何修改


If e.Node.text <> "全部"
    Dim Value()As String
    Value = e.Node.FullPath.Split("\\")
    Select Case e.Node.Level
        Case 0
            Tables("材料").Filter ="[材料分类] = \'" & Value(0).split(" ")(1) & "\'"
        Case 1
            Tables("材料").Filter ="[材料分类] = \'" & Value(0).split(" ")(1) & "\' And [材料名称] = \'" & Value(1).split(" ")(1) & "\'"
        Case 2
            Tables("材料").Filter ="[材料分类] = \'" & Value(0).split(" ")(1) & "\' And [材料名称] = \'" & Value(1).split(" ")(1) & "\'And [型号规格] = \'" & Value(2).split(" ")(1) & "\'"
    End Select
   
Else
    Tables("材料").ApplyFilter = False  \'关闭筛选
End If
 


图片点击可在新窗口打开查看此主题相关图片如下：snap1.jpg
图片点击可在新窗口打开查看
--  作者：有点蓝
--  发布时间：2016/12/3 9:19:00
--  
试试

Tables("材料").Filter ="[材料分类] = \'" & Value(0).split(" ")(1) & "\' And [材料名称] = \'" & Value(1).split(" ")(1) & "\'And [型号规格] = \'" & Value(2).replace(Value(2).split(" ")(0),"").trim() & "\'"
--  作者：实话实说
--  发布时间：2016/12/3 9:25:00
--  
可以,谢了.