如图，本来在“基本信息”表主窗口设有目录树，筛选查询一切正常，代码如下：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
后感觉不方便，就把目录树独立出来做成共有窗口，但上述代码无法执行，估计原来目录树和表控件在同一个窗口，现在分开在两个窗口，引用出现问题，但跨窗口代码不知该如何修改，恳请高手指点。
加好友 
发短信
Post By：2013/3/22 12:20:00 [显示全部帖子]
