Dim Lbs As String() ={"产品","客户","雇员","折扣","日期"}  \'通用多选目录树加载代码.套用时只需修改本行.

Dim trv As WinForm.TreeView = e.Sender

Dim nd As WinForm.TreeNode = trv.SelectedNode

Dim flt,s1 As String

Dim n1 As Integer

For Each ndx As WinForm.TreeNode In nd.allNodes \'同步子节点选中状态

    ndx.Checked = nd.Checked

Next

If nd.ParentNode IsNot Nothing Then     \'确定父节点选中状态:

    For i As Integer = nd.ParentNode.level To 0 Step -1   \'

        Dim Inum As Integer = nd.ParentNode.Nodes.Count

        For Each ndc As WinForm.TreeNode In nd.ParentNode.Nodes

            If ndc.Checked Then

                Inum = Inum -1

            End If

        Next

        If Inum = 0 Then

            nd.ParentNode.Checked = True

            nd = nd.ParentNode

        Else

            nd.ParentNode.Checked = False

            nd = nd.ParentNode

        End If

    Next

End If

For Each nd In trv.AllNodes

    If nd.Level > 0 AndAlso nd.ParentNode.Checked Then \'如果父节点选中

        Continue For \'跳过此节点,处理下一结点

    End If

    If nd.Checked AndAlso nd.FullPath IsNot Nothing Then

        n1=0

        For Each s1 In nd.FullPath.split("\\")

            flt+ =iif(n1 =0,") Or (" ," and ")  & Lbs(n1) & " = \'" & s1 & "\'"

            n1+=1

        Next

    End If

Next

Application.DoEvents  \'先勾选目录树,再加载数据.

If  flt  IsNot Nothing  Then

    Tables("订单").DataTable.LoadFilter = flt.Substring(4) & ")"

    Tables("订单").DataTable.Load()

Else

    Tables("订单").DataTable.LoadFilter ="[_Identify] Is Null"

    Tables("订单").DataTable.Load()

End If

代码放在那里？窗口 afterload？提示错误哦