以下代码如何修改才能实现"S行政区域ZD"表不加载或部分加载时也能基于后台数据生成目录树,请老师指点
在项目CurrentTableChanged代码:
For Each t As Table In Tables
If t.Name Like "*S征地记录*" Then
Dim tb As New DropTreeBuilder
tb.SourceTable = DataTables("S行政区域ZD") '指定目录树表
tb.TreeCols = "项目名称|县区|乡镇" '指定用于生成目录树的列
tb.SourceCols = "项目名称|征地协议书编号|县区|乡镇|项目全称|县指挥部全称|县发文件" '指定数据来源列
tb.ReceiveCols = "项目名称|协议书编号|县|乡|项目全称|县指挥部全称|征地文件" '指定数据接收列
t.Cols("项目名称").DropTree = tb.Build()
End If
Next
在“S征地记录表”的BeforeLoad事件代码:
If User.Group = "乡镇"
Dim fl As String = "[乡] = '" & User.Name & "'"
If e.DataTable.LoadFilter = "" Then
e.DataTable.LoadFilter = fl
ElseIf e.DataTable.LoadFilter.IndexOf(fl) < 0 Then
e.DataTable.LoadFilter = e.DataTable.Loadfilter & " And " & fl
End If
End If
在“S征地记录表”的AfterLoad事件代码:
DataTables("S征地记录").LoadChildren("S行政区域ZD", "乡", "乡镇")