帮助内提到:目录树自动更新,如果需要根据其它列已经输入的内容来生成列表项目或
目录树,那么就只能将代码放在表事件PrepareEdit中了。
我做了一个,还是不行,不能自动更新
'目录树自动更新
If MainTable.Name = "单价明细"
Then
Dim tb As New DropTreeBuilder
tb.SourceTable = DataTables("单价列表")
'指定目录树表
tb.TreeCols
= "工料一类|工料二类|工料名称" '指定用于生成目录树的列
tb.SourceCols = "工料一类|工料二类|工料名称|工料单位|工料单价|单价列表ID"
'指定数据来源列
tb.ReceiveCols = "工料一类|工料二类|工料名称|工料单位|工料单价|单价列表ID"
'指定数据接收列
Tables("单价明细").Cols("工料一类").DropTree
= tb.Build()
End If