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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 动态目录树求助

共有3710人关注过本帖树形打印复制链接主题：动态目录树求助

yifan3429

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

加好友

发短信

等级：九尾狐帖子：2482 积分：22932 威望：0 精华：0 注册：2011/3/29 17:14:00

动态目录树求助 发帖心情

Post By：2019/9/6 18:30:00 [只看该作者]

代码放在

PrepareEdit

准备编辑单元格的时候执行。

外部数据源希望从后台获取数据

筛选出逻辑启用列为是的行作为目录树列表

Dim cmd As New SQLCommand

Dim dt As DataTable

cmd.C

cmd.CommandText = "SELEC T DIS TINCT 大类,一级科目,明细科目 From {会计科目} Where 启用 = 1"

dt = cmd.ExecuteReader()

'生成目录树

Dim tb As New DropTreeBuilder

tb.SourceTable = DataTables("会计科目") '指定目录树表

tb.TreeCols = "大类|一级科目|明细科目" '指定用于生成目录树的列

tb.SourceCols = "一级科目|明细科目" '指定数据来源列

tb.ReceiveCols = "一级科目|明细科目" '指定数据接收列

Tables("凭证明细").Cols("会计科目_一级科目").DropTree = tb.Build()

---------------------------

错误

在将 nvarchar 值 '启用' 转换成数据类型 int 时失败。

替换下图设置

此主题相关图片如下：企业微信截图_20190906182919.png

[此贴子已经被作者于2019/9/6 18:57:34编辑过]

有点蓝

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

加好友

发短信

等级：超级版主帖子：110544 积分：562604 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2019/9/6 20:19:00 [只看该作者]

PrepareEdit不适合使用这种用法，会导致项目假死，只能放到maintablechanged事件

...Where 启用 = '1'"

yifan3429

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

加好友

发短信

等级：九尾狐帖子：2482 积分：22932 威望：0 精华：0 注册：2011/3/29 17:14:00

Post By：2019/9/7 9:29:00 [只看该作者]

如何让目录树的字体变得大点

有点蓝

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

加好友

发短信

等级：超级版主帖子：110544 积分：562604 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2019/9/7 9:39:00 [只看该作者]

这个无法控制。除非自己使用下拉窗口做，如：http://www.foxtable.com/webhelp/topics/2893.htm

yifan3429

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

加好友

发短信

等级：九尾狐帖子：2482 积分：22932 威望：0 精华：0 注册：2011/3/29 17:14:00

Post By：2019/9/7 10:17:00 [只看该作者]

If MainTable.Name = "凭证明细" Then '如果选择的主表是订单表

'生成数据表

Dim cmd As New SQLCommand

Dim dt As DataTable

cmd.C

cmd.CommandText = "SELEC T DIS TINCT 大类,一级科目,明细科目 From {会计科目} Where 启用 = '1'"

dt = cmd.ExecuteReader()

'生成目录树

Dim tb As New DropTreeBuilder

tb.SourceTable = DataTables("会计科目") '指定目录树表

tb.TreeCols = "大类|一级科目|明细科目" '指定用于生成目录树的列

tb.SourceCols = "大类|一级科目|明细科目" '指定数据来源

tb.ReceiveCols = "大类|会计科目_一级科目|会计科目_明细科目" '指定数据接收列

Tables("凭证明细").Cols("会计科目_一级科目").DropTree = tb.Build()

End If

上面的代码应该是从后台获取数据

实际上不能，只有下拉框架没有数据

我如果将数据会计科目全部加载后是可以的

找不到原因了

有点蓝

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

加好友

发短信

等级：超级版主帖子：110544 积分：562604 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2019/9/7 10:41:00 [只看该作者]

tb.SourceTable = dt '指定目录树表

yifan3429

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

加好友

发短信

等级：九尾狐帖子：2482 积分：22932 威望：0 精华：0 注册：2011/3/29 17:14:00

Post By：2019/9/7 12:46:00 [只看该作者]

Dim cmd As New SQLCommand

Dim dt As DataTable

cmd.C

cmd.CommandText = "SELE CT DIST INCT 大类,一级科目,明细科目 From {会计科目} Where 启用 = '1'"

dt = cmd.ExecuteReader()

'生成目录树

Dim tb As New DropTreeBuilder

tb.SourceTable = dt

tb.TreeCols = "大类|一级科目|明细科目" '指定用于生成目录树的列

tb.SourceCols = "大类|一级科目|明细科目" '指定数据来源

tb.ReceiveCols = "大类|会计科目_一级科目|会计科目_明细科目" '指定数据接收列

Tables("凭证明细").Cols("会计科目_一级科目").DropTree = tb.Build()

还是不能用，只有框架没有数据

换回 'tb.SourceTable = DataTables("会计科目") '指定目录树表

加载数据后正常

不得其解求助

有点蓝

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

加好友

发短信

等级：超级版主帖子：110544 积分：562604 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2019/9/7 14:16:00 [只看该作者]

[此贴子已经被作者于2019/9/7 16:33:30编辑过]

yifan3429

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

加好友

发短信

等级：九尾狐帖子：2482 积分：22932 威望：0 精华：0 注册：2011/3/29 17:14:00

Post By：2019/9/7 16:26:00 [只看该作者]

本页地址：http://www.foxtable.com/webhelp/topics/0696.htm

示例二

同样有了ExecuteReader,就可以直接利用后台数据给列生成下拉目录树：

'生成数据表
Dim cmd As New SQLCommand
Dim dt As DataTable
cmd.ConnectionName = "region"
cmd.CommandText = "SELE CT DIS TINCT 省,市县,区号,邮编 From {行政区域}"
dt = cmd.ExecuteReader()
'生成目录树
Dim tb As New DropTreeBuilder
tb.SourceTable = dt
tb.TreeCols = "省|市县"
tb.SourceCols = "省|市县|区号|邮编"
tb.ReceiveCols = "省|市县|区号|邮编"
Tables("客户").Cols("省").DropTree = tb.Build()

代码放在哪呢

那个这个怎么实现呢

[此贴子已经被作者于2019/9/7 16:26:36编辑过]

有点蓝

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

加好友

发短信

等级：超级版主帖子：110544 积分：562604 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2019/9/7 16:30:00 [只看该作者]

汗，测试了一下，没有问题啊。上传您的实例说明

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

主题：动态目录树 求助

主题：动态目录树求助