在项目的CurrentTableChanged事件设如下代码，生成下拉列表，如图。想在图中生成目录树的“名称”列后标出“政府青苗补偿标准”和“业主青苗补偿标准”，如“稻谷|3000元|1052元”，请问老师能实现吗？该怎么修改代码？
For Each t As Table In Tables
If t.Name Like "*S征地明细*" Then
Dim tb As New DropTreeBuilder
tb.SourceTable = DataTables("S青苗补偿标准") '指定目录树表
tb.TreeCols = "县区|乡镇|类别|名称" '指定用于生成目录树的列
tb.SourceCols = "名称|单位|政府补偿标准|业主补偿标准" '指定数据来源列
tb.ReceiveCols = "名称|单位|政府青苗补偿标准|业主青苗补偿标准" '指定数据接收列
tb.TreeWidth = 300 '指目录树宽度
t.Cols("名称").DropTree = tb.Build()
End If
Next
此主题相关图片如下：1111.png
加好友 
发短信
Post By：2018/8/15 16:56:00 [只看该作者]
