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

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

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

2900819580

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

加好友

发短信

等级：六尾狐帖子：1342 积分：9766 威望：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")

2900819580

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

加好友

发短信

等级：六尾狐帖子：1342 积分：9766 威望：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

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

加好友

发短信

等级：六尾狐帖子：1342 积分：9766 威望：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")

2900819580

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

加好友

发短信

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

Post By：2017/6/8 16:27:00 [显示全部帖子]

老师，我的数据表中有一个排产单号的列，内容一般是PO1701001 其中PO是不变的，17是年，01是月，001是流水号，

想将年和月重新建立一个列。

Dim cmd As New SQLCommand
Dim dt As DataTable
cmd.ConnectionName = "数据源名"

cmd.CommandText = "SEL ECT DISTINCT 排产单号,mid(排产单号,2,2) AS 年，mid(排产单号,4,2) AS 月 From {订单表}" ‘’这个应该怎么样写

dt = cmd.ExecuteReader()

Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")
trv.BuildTree(dt,"类型_1|类型_2|类型_3")

2900819580

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

加好友

发短信

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

Post By：2017/6/8 17:08:00 [显示全部帖子]

.NET Framework 版本：2.0.50727.5485

Foxtable 版本：2017.6.8.1

错误所在事件：

详细错误信息：

'mid' 不是可以识别的内置函数名称。

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

主题：[求助] TreeView 后台如何生成目录树。