写到CurrentTableChanged事件
If CurrentTable.Name like "*清单明细*" Then
Dim tb As New DropTreeBuilder
tb.SourceTable = DataTables("工料单价") '指定目录树表
tb.TreeCols = "工料一类|工料二类|工料名称" '指定用于生成目录树的列
tb.SourceCols = "工料一类|工料二类|工料名称|工料单位|工料ID|综合单价" '指定数据来源列
tb.ReceiveCols = "工料一类|工料二类|工料名称|工料单位|工料ID|综合单价" '指定数据接收列
CurrentTable.Cols("工料一类").DropTree = tb.Build()
End If
[此贴子已经被作者于2017/7/19 15:03:54编辑过]