主题：目录树选择问题

Dim t As Table = Tables("表a")

If e.node.Level > 0 Then
    Dim filter As String = ""
    Dim dr As DataRow = e.Node.DataRow
    If dr("分组") = "按分组" Then
        If e.Node.Level = 1 Then
            filter = "省 = '" & dr("省") & "'"
        Else If e.Node.Level = 2 Then
            filter = "省 = '" & dr("省") & "' and 市 = '" & dr("市") & "'"
        Else If e.Node.Level = 3 Then
            filter = "省 = '" & dr("省") & "' and 市 = '" & dr("市") & "' and 区县 = '" & dr("区县") & "'"
        Else If e.Node.Level = 4 Then
            filter = "省 = '" & dr("省") & "' and 市 = '" & dr("市") & "' and 区县 = '" & dr("区县") & "' and 乡镇 = '" & dr("乡镇") & "'"
        Else If e.Node.Level = 5 Then
            filter = "省 = '" & dr("省") & "' and 市 = '" & dr("市") & "' and 区县 = '" & dr("区县") & "' and 乡镇 = '" & dr("乡镇") & "' and 街道居委 = '" & dr("街道居委") & "'"
        End If
        filter = "客户分组 in ('" & DataTables("客户分组").GetComboListString("街道居委", filter).Replace("|", "','") & "')"
        t.Filter = filter
       
    Else If dr("分组") = "按等级" Then
        filter = "客户等级 = '" & dr("省") & "'"
        t.Filter = filter
    End If
End If