目录树的问题 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

我想让两张以上的表用同一个目录树，得怎么写代码？

我试着用试例里的做了，没成功。

什么意思，怎么同用，请上传具体例子。

[此贴子已经被作者于2015/3/18 15:36:25编辑过]

If MainTable.Name = "客户" Then

Dim tb As New DropTreeBuilder

tb.SourceTable = DataTables("行政区域") '指定目录树表

tb.TreeCols = "省|县市" '指定用于生成目录树的列

tb.SourceCols = "省|县市|区号|邮编" '指定数据来源列

tb.ReceiveCols = "省|县市|区号|邮编" '指定数据接收列

Tables("客户").Cols("省").DropTree = tb.Build()

End If

这就是哪个目录树的代码了，这个只是真对两张表的。

我的意思是，我要在五个表上做。五张表中，有二张是目录表，另三张上都要用这个目录表做为目录树。

我要是按照这个代码写进项目里，它只能实现两张表间的目录，要是实现多个，我还得整段代码复制，再复制，再复制，哪样做，我觉得不太合理。

所以我想，在同一段代码里，能不能实现二个以上的表同时用这一段代码，共用同一个目录树？

这样写

Select Case MainTable.Name
    Case "客户", "订单"
        Dim tb As New DropTreeBuilder
        tb.SourceTable = DataTables("行政区域") '指定目录树表
        tb.TreeCols = "省|县市" '指定用于生成目录树的列
        tb.SourceCols = "省|县市|区号|邮编" '指定数据来源列
        tb.ReceiveCols = "省|县市|区号|邮编" '指定数据接收列
        MainTable.Cols("省").DropTree = tb.Build()
End Select

谢谢，你的代码太牛了，真对好厉害。

不过，我还有问题请教，这是所有表都用这个目录树了，哪我要是在不同的三张表上各取1个列或2个列的值，生成一个目录树，哪我得怎么写代码啊？

以下是引用筑梦踏实在2015/3/18 22:43:00的发言：
谢谢，你的代码太牛了，真对好厉害。

不过，我还有问题请教，这是所有表都用这个目录树了，哪我要是在不同的三张表上各取1个列或2个列的值，生成一个目录树，哪我得怎么写代码啊？

那就得分开写。

Select Case MainTable.Name
    Case "客户", "订单"
        Dim tb As New DropTreeBuilder
        tb.SourceTable = DataTables("行政区域") '指定目录树表
        Select Case MainTable.name
            Case "客户"
                tb.TreeCols = "省|县市" '指定用于生成目录树的列
                tb.SourceCols = "省|县市|区号|邮编" '指定数据来源列
                tb.ReceiveCols = "省|县市|区号|邮编" '指定数据接收列
            Case "订单"
                tb.TreeCols = "省|县市" '指定用于生成目录树的列
                tb.SourceCols = "省|县市|区号|邮编" '指定数据来源列
                tb.ReceiveCols = "省|县市|区号|邮编" '指定数据接收列
            Case Else
                tb.TreeCols = "省|县市" '指定用于生成目录树的列
                tb.SourceCols = "省|县市|区号|邮编" '指定数据来源列
                tb.ReceiveCols = "省|县市|区号|邮编" '指定数据接收列
        End Select
        MainTable.Cols("省").DropTree = tb.Build()
End Select

主题：目录树的问题