主题：字段里有空格怎么筛选

以下是目录树的筛选代码(含物料编码)现在型号规格字段里含有空格, 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

试试

可以,谢了.