主题：[求助]关于treeview问题

参照casestudy在导航里编了一段

Dim Value() As String
Value = e.Node.FullPath.Split("\")
Select Case e.Node.Level
    Case 0
        Tables("荒料入库").Filter = "[公司] = '" & Value(0) & "'"
    Case 1
        Tables("荒料入库").Filter = "[公司] = '" & Value(0) & "' And [品种] = '" & Value(1) & "'"
End Select

发现有个问题，就是表显示的列也根据我所在树的节点变化，即使我把窗口关了也是如此

所以希望像将军仓管里面那样做个加载所有行的功能。请教这个代码该怎么写