下拉目录树显示问题 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 下拉目录树显示问题

共有2071人关注过本帖树形打印复制链接主题：下拉目录树显示问题

aza520

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：三尾狐帖子：689 积分：5155 威望：0 精华：0 注册：2017/10/22 10:15:00

下拉目录树显示问题 发帖心情

Post By：2018/8/15 16:56:00 [只看该作者]

在项目的CurrentTableChanged事件设如下代码，生成下拉列表，如图。想在图中生成目录树的“名称”列后标出“政府青苗补偿标准”和“业主青苗补偿标准”，如“稻谷|3000元|1052元”，请问老师能实现吗？该怎么修改代码？

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 = "名称|单位|政府青苗补偿标准|业主青苗补偿标准" '指定数据接收列

tb.TreeWidth = 300 '指目录树宽度

t.Cols("名称").DropTree = tb.Build()

End If

此主题相关图片如下：1111.png

有点甜

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2018/8/15 17:12:00 [只看该作者]

添加一个表达式列，把需要合成的数据弄过去；

根据表达式列生成目录树。

aza520

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：三尾狐帖子：689 积分：5155 威望：0 精华：0 注册：2017/10/22 10:15:00

Post By：2018/8/16 12:38:00 [只看该作者]

表达式如下：

杆线管线类型 + '|' + 政府补偿标准 + '|' + 业主补偿标准

生成例子：

10千伏输电线路|144000|108500

相在金额后多加个元字，如下，该怎么设置？

10千伏输电线路|144000元|108500元

有点甜

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2018/8/16 14:26:00 [只看该作者]

杆线管线类型 + '|' + 政府补偿标准 + '元|' + 业主补偿标准 + '元'

下一主题 >> << 上一主题

主题：下拉目录树显示问题