使用数据表生成目录树出现
Dim tb3 As New DropTreeBuildertb3.SourceTable = DataTables("MuLuShu") '指定目录树表tb3.TreeCols = "ShengFen|ChengShi|QuXian" '指定用于生成目录树的列tb3.TreeSort = "_Identify"tb3.SourceCols = "ShengFen|ChengShi|QuXian" '指定数据来源列tb3.ReceiveCols = "ShengFen|ChengShi|QuXian" '指定数据接收列Tables("KeHu").Cols("ShengFen").DropTree = tb3.Build()