主题：多个表设置目录树

老师请教几个问题：

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

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

 

 

 

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

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

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

理解了

目录树的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

谢谢 老师 你真的太棒了