下面是目录树单击事件，当型号规格是123456 0.5*10是有效，当型号规格是123456 VV 0.5*10时无效，下面代码如何修正？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
加好友 
发短信
Post By：2017/11/24 9:02:00 [显示全部帖子]
