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

表【S征地补偿标准】重新加载之后，也就是AfterLoad事件，要把所有表的目录树刷新

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 = "地类|政府征地补偿标准|业主征地补偿标准" '指定数据接收列
       
        t.Cols("地类").DropTree = tb.Build()
                
    End If
Next