这段代码写到prepareEdit事件即可
Dim tb1 As New DropTreeBuilder tb1.SourceTable = DataTables("ylx") '指定目录树表 tb1.TreeCols = "nd|xmbh" '指定用于生成目录树的列 tb1.SourceCols = "cs|dw|cgr|nd|xmbh" '指定数据来源列 tb1.ReceiveCols = "cs|dw|cgr|nd|xmbh" '指定数据接收列 Tables("ylxly").Cols("xmbh").DropTree = tb1.Build()