如果你的目录树已经生产，直接在 AfterSelectNode 写代码
Dim cs As String = "'" & e.node.name & "',"
For Each nd As winform.treenode In e.node.AllNodes cs &= "'" & nd.name & "',"Next
msgbox(cs)
Tables("物料记录").Filter = "Category in (" & cs.trim(",") & ")"
加好友 
发短信
Post By：2017/5/12 16:55:00 [显示全部帖子]
