主题：分区版面能否嵌入窗口？

Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")
Dim key As String = e.Node.Name
Dim ids As String
If key = "全部" Then
    Tables("表A").Filter = ""
Else
    For Each nd As WinForm.TreeNode In trv.AllNodes
        Dim pd As WinForm.TreeNode = nd
        Do
            If pd.Name = key Then
                If ids > "" Then
                    ids= ids &  ","
                End If
                ids = ids & "'" & nd.name & "'"
                Exit Do
            Else
                pd = pd.ParentNode
                If pd Is Nothing Then
                    Exit Do
                End If
            End If
        Loop
    Next
    Tables("表A").Filter = "键 In (" & ids & ")"
End If

　　是击点目录树节点生成的筛选代码，不是解决复选框勾选问题，最贴近的实例是：

http://www.foxtable.com/webhelp/topics/2502.htm

同样没有解决勾选全部子节点后父子点及上一层父节点的勾选问题，在你给的代码基础上再追加上一层父节点，代码要有通用性啊，算了我再想想。