参照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
发现有个问题,就是表显示的列也根据我所在树的节点变化,即使我把窗口关了也是如此
所以希望像将军仓管里面那样做个加载所有行的功能。请教这个代码该怎么写