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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助] TreeView 后台如何生成目录树。

共有2118人关注过本帖树形打印复制链接主题：[求助] TreeView 后台如何生成目录树。

2900819580

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

加好友

发短信

等级：六尾狐帖子：1347 积分：9817 威望：0 精华：0 注册：2015/6/30 8:46:00

[求助] TreeView 后台如何生成目录树。 发帖心情

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

TreeView 后台如何生成目录树。（数据没有加载进来的时候）

Dim tv As WinForm.TreeView

tv =e.Form.Controls("TreeView1")

tv.BuildTree("即时库存", "类型_1|类型_2|类型_3")

有点色

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

加好友

发短信

等级：超级版主帖子：13837 积分：69650 威望：0 精华：0 注册：2016/11/1 14:42:00

Post By：2017/6/7 16:50:00 [只看该作者]

先查询，再生成

Dim cmd As New SQLCommand
Dim dt As DataTable
cmd.CommandText = "SELECT DISTINCT 产品,客户 From {订单}"
dt = cmd.ExecuteReader()
Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")
trv.BuildTree(dt,"产品|客户")

2900819580

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

加好友

发短信

等级：六尾狐帖子：1347 积分：9817 威望：0 精华：0 注册：2015/6/30 8:46:00

Post By：2017/6/7 17:14:00 [只看该作者]

如下的统计表，是不是也需要查询后再生成呀。

Dim g As New GroupTableBuilder("统计表2", DataTables("生产车间欠料表"))

g.Groups.AddDef("上报日期", DateGroupEnum.Year, "年")

g.Groups.AddDef("上报日期", "月")

g.Groups.AddDef("上报日期", DateGroupEnum.Week, "周")

g.Groups.AddDef("负责人")

g.Totals.AddDef("上报日期", AggregateEnum.Count, "上报批数")

g.Totals.AddDef("回复日期", AggregateEnum.Count, "回复批数")

g.Totals.AddDef("完成", AggregateEnum.Count)

g.Build()

MainTable = Tables("统计表2")

2900819580

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

加好友

发短信

等级：六尾狐帖子：1347 积分：9817 威望：0 精华：0 注册：2015/6/30 8:46:00

Post By：2017/6/7 17:23:00 [只看该作者]

以下是引用有点色在2017/6/7 16:50:00的发言：

先查询，再生成

Dim cmd As New SQLCommand
Dim dt As DataTable
cmd.CommandText = "SEL ECT DISTINCT 产品,客户 From {订单}"
dt = cmd.ExecuteReader()
Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")
trv.BuildTree(dt,"产品|客户")

.NET Framework 版本：2.0.50727.5485

Foxtable 版本：2017.6.8.1

错误所在事件：

详细错误信息：

Microsoft Jet 数据库引擎找不到输入表或查询 '~TMPCLP即时库存'。确定它是否存在，以及它的名称的拼写是否正确。

Dim cmd As New SQLCommand

Dim dt As DataTable

cmd.CommandText = "SEL ECT DISTINCT 类型_1,类型_2,类型_3 From {即时库存}"

dt = cmd.ExecuteReader()

Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")

trv.BuildTree(dt,"类型_1|类型_2|类型_3")

有点色

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

加好友

发短信

等级：超级版主帖子：13837 积分：69650 威望：0 精华：0 注册：2016/11/1 14:42:00

Post By：2017/6/7 17:47:00 [只看该作者]

Dim cmd As New SQLCommand
Dim dt As DataTable
cmd.ConnectionName = "数据源名"
cmd.CommandText = "SELECT DISTINCT 类型_1,类型_2,类型_3 From {即时库存}"
dt = cmd.ExecuteReader()
Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")
trv.BuildTree(dt,"类型_1|类型_2|类型_3")

[此贴子已经被作者于2017/6/7 17:47:39编辑过]