- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- 怎样后台生成目录树 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=112978)
-- 发布时间：2018/1/5 23:04:00
-- 怎样后台生成目录树
以下代码如何修改才能实现"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", "乡", "乡镇")
-- 发布时间：2018/1/5 23:19:00
--
自己设计目录树和下拉窗口
-- 发布时间：2018/1/5 23:38:00
--
我的意思是生成这样的下拉列表
此主题相关图片如下：qq图片20180105233747.jpg
-- 发布时间：2018/1/5 23:51:00
--
帮助文件里好像 是有讲到的
-- 发布时间：2018/1/6 8:42:00
--
就是2楼2个帮助的用法结合做。只能自己做下拉窗口