共有窗口的目录树如何操作其他窗口中的Tabel - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

如图，本来在“基本信息”表主窗口设有目录树，筛选查询一切正常，代码如下：

Dim Value() As String

Value = e.Node.FullPath.Split("\")

Select Case e.Node.Level

Case 0

Syscmd.Filter.UnFilter()

Case 1

Tables("基本信息").Filter ="[单位] = '" & Value(1) & "'"

Case 2

Tables("基本信息").Filter ="[单位] = '" & Value(1) & "' And [部门] = '" & Value(2) & "'"

Case 3

Tables("基本信息").Filter ="[单位] = '" & Value(1) & "' And [部门] = '" & Value(2) & "' And [班组] = '" & Value(3) & "'"

Case 4

Tables("基本信息").Filter ="[单位] = '" & Value(1) & "' And [部门] = '" & Value(2) & "' And [班组] = '" & Value(3) & "' And [岗位] = '" & Value(4) & "'"

End Select

后感觉不方便，就把目录树独立出来做成共有窗口，但上述代码无法执行，估计原来目录树和表控件在同一个窗口，现在分开在两个窗口，引用出现问题，但跨窗口代码不知该如何修改，恳请高手指点。

主题：共有窗口的目录树如何操作其他窗口中的Tabel