以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  为什么动态加载目录树不能随着加载数据的变化及时更新,有些行有些不行  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=108558)

--  作者:aza520
--  发布时间:2017/10/25 8:54:00
--  为什么动态加载目录树不能随着加载数据的变化及时更新,有些行有些不行
为什么动态加载目录树不能随着加载数据的变化及时更新,有些行有些不行。找不到原因。

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


--  作者:有点甜
--  发布时间:2017/10/25 9:02:00
--  

表【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


--  作者:aza520
--  发布时间:2017/10/25 10:54:00
--  
多谢指教