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
Dim xhgg As String = Value(2)
Dim idx As Integer = xhgg.LastIndexOf(" ")
xhgg = xhgg.SubString(idx+1)
Tables("材料").Filter ="[材料分类] = '" & Value(0).split(" ")(1) & "' And [材料名称] = '" & Value(1).split(" ")(1) & "'And [型号规格] = '" & xhgg & "'"
End Select
Else
Tables("材料").ApplyFilter = False '关闭筛选
End If
[此贴子已经被作者于2017/11/24 10:27:19编辑过]
加好友 
发短信
Post By：2017/11/24 10:26:00 [显示全部帖子]
