此主题相关图片如下:qq截图20160906092621.jpg

代码
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()
如图,总需要点下加号才能选,可不可以,一行就选择,前面的编号,后面连接名称。然后点一次就可以了