专家坐堂-为什么动态加载目录树不能随着加载数据的变化及时更新，有些行有些不行Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  为什么动态加载目录树不能随着加载数据的变化及时更新，有些行有些不行  (http://foxtable.com/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
--
多谢指教