- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 共有窗口的目录树如何操作其他窗口中的Tabel (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=30182)
-- 发布时间：2013/3/22 12:20:00
-- 共有窗口的目录树如何操作其他窗口中的Tabel
如图，本来在“基本信息”表主窗口设有目录树，筛选查询一切正常，代码如下：
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
后感觉不方便，就把目录树独立出来做成共有窗口，但上述代码无法执行，估计原来目录树和表控件在同一个窗口，现在分开在两个窗口，引用出现问题，但跨窗口代码不知该如何修改，恳请高手指点。
-- 发布时间：2013/3/22 12:24:00
--
你上面的代码并没有引用窗口控件啊。
提示：
引用本窗口控件： e.form.Controls("控件名称")
引用另一个窗口控件： forms("另一个窗口的名称").Controls("控件名称")
-- 发布时间：2013/3/22 12:54:00
--
谢谢狐爸，马上研究
