主题：多个表设置目录树

老师请教几个问题：

1、在项目中设置目录树时分组用表分组中的列来生成目录树 ，其他的目录树节点用表a中的等级、来源自动生成 请帮忙看看代码

2、在客户窗口点新增弹出客户新增窗体，在分组的combobox中怎么引用表分组中的数据建立目录树用来选择

 

 

 

用外部数据库是如何一键备份数据库

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目1.table

1.多列要用BuildTree

理解了

目录树的nodemouseclike代码

Dim t As Table = Tables("表a")
If e.node.Level > 0 Then
    If e.Node.FullPath.StartsWith("按分组") Then
      
            Dim sidx As Integer = e.node.FullPath.IndexOf("\")
            Dim dept As String = e.node.FullPath.SubString(sidx+1)
            t.Filter = "分组 like '*" & dept & "*'"
     
    Else If e.node.FullPath.StartsWith("按客户等级") Then
        'If e.node.Nodes.count > 0 Then
        Dim sidx As Integer = e.node.FullPath.IndexOf("\")
        Dim dept As String = e.node.FullPath.SubString(sidx+1)
        t.Filter = "等级 like '*" & dept & "*'"
   
    Else If e.node.FullPath.StartsWith("按客户来源") Then
       
        Dim sidx As Integer = e.node.FullPath.IndexOf("\")
        Dim dept As String = e.node.FullPath.SubString(sidx+1)
        t.Filter = "来源 like '*" & dept & "*'"
      
       
    End If
Else
    t.Filter = ""
End If

 

 

按分组有用 单分组其他的节点没有用 请教怎么写代码

不明白你的意思

 

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目2.table

点目录树按分组根节点下的节点 比如点上海时 表a中显示在表a分组的省是上海的全部客户

点静安区时显示全是静安区下面的客户

此主题相关图片如下：1.png

代码

 

Dim t As Table = Tables("表a")
Dim dt As DataTable = DataTables("分组")
If e.node.Level > 0 Then
    If e.Node.FullPath.StartsWith("按分组") Then
        Dim filter As String = ""
        Dim dr As DataRow = e.Node.DataRow
        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
        Dim idxs As String = "'" & dt.GetComboListString("街道居委", filter).Replace("|", "','") & "'"
        t.Filter = "分组 in (" & idxs & ")"
       
    Else If e.node.FullPath.StartsWith("按客户等级") Then
       
        Dim sidx As Integer = e.node.FullPath.IndexOf("\")
        Dim dept As String = e.node.FullPath.SubString(sidx+1)
        t.Filter = "等级 like '*" & dept & "*'"
       
    Else If e.node.FullPath.StartsWith("按客户来源") Then
       
        Dim sidx As Integer = e.node.FullPath.IndexOf("\")
        Dim dept As String = e.node.FullPath.SubString(sidx+1)
        t.Filter = "来源 like '*" & dept & "*'"
       
       
    End If
Else
    t.Filter = ""
End If