主题：为什么动态加载目录树不能随着加载数据的变化及时更新，有些行有些不行

S征地记录_AfterLoad

DataTables("S征地记录").LoadChildren("S征地明细", "协议书编号", "协议书编号")

DataTables("S征地记录").LoadChildren("S征地补偿标准", "乡", "区域")

DataTables("S征地记录").LoadChildren("S青苗补偿标准", "乡", "乡镇")

DataTables("S征地记录").LoadChildren("S行政区域", "乡", "乡镇")

CurrentTableChanged

If CurrentTable.Name Like "*S征地明细*" Then

    Dim tb As New DropTreeBuilder

    tb.SourceTable = DataTables("S征地补偿标准") '指定目录树表

    tb.TreeCols = "县区|区域|地类" '指定用于生成目录树的列

    tb.SourceCols = "地类|政府征地补偿标准|业主征地补偿标准" '指定数据来源列

    tb.ReceiveCols = "地类|政府征地补偿标准|业主征地补偿标准" '指定数据接收列

    CurrentTable.Cols("地类").DropTree = tb.Build()

End If