老师,想直接引用窗口绑定的非副本表(通讯录)。
If e.Node.Name = "显示所有行" Then
Tables(e.Form.Name & "_Table2").Filter = ""
Else
Dim FilterCol() As String = e.Form.Controls("复选").Value.Split(",")
Dim TmpStr() As String = e.Node.FullPath.Split("\")
Dim FilterStr As String
For i As Integer = 0 To e.Node.Level
FilterStr = FilterStr & "[" & FilterCol(i) & "] = '" & TmpStr(i) & "' And "
Next
FilterStr = FilterStr.SubString(0,FilterStr.Length - 5)
Tables(e.Form.Name & "_Table2").Filter = FilterStr
End If