If Currenttable.Name = "销售副表" orelse
Currenttable.name = "销售主表.销售副表" Then
Dim tb As New DropTreeBuilder
tb.SourceTable = DataTables("产品表") '指定目录树表
tb.TreeCols = "产品类|产品名称" '指定用于生成目录树的列
tb.SourceCols = "产品类|产品名称" '指定数据来源列
tb.ReceiveCols = "产品类|产品名称" '指定数据接收列
Tables(Currenttable.name).Cols("产品名称").DropTree = tb.Build()
End If
[此贴子已经被作者于2013-5-10 0:08:09编辑过]