主题：目录树的问题

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

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

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

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

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

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

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

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