Dim tb As New DropTreeBuilder tb.SourceTable = DataTables("zzxmb1") \'指定目录树表
tb.TreeCols = "xmname|id" \'指定用于生成目录树的列
tb.SourceCols = "xmname|biaozhun|xmlx|xmsyfw|id" \'指定数据来源列
tb.ReceiveCols = "xmname|jine|xmlx|xmsyfw|xmbh" \'指定数据接收列
Tables("xszzbb").Cols("xmbh").DropTree = tb.Build()
如图,总需要点下加号才能选,可不可以,一行就选择,前面的编号,后面连接名称。然后点一次就可以了