以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助] TreeView 后台如何生成目录树。  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=101812)
--  作者：2900819580
--  发布时间：2017/6/7 16:14:00
--  [求助] TreeView 后台如何生成目录树。
TreeView 后台如何生成目录树。（数据没有加载进来的时候）

Dim tv As WinForm.TreeView
tv =e.Form.Controls("TreeView1")
tv.BuildTree("即时库存", "类型_1|类型_2|类型_3")
--  作者：有点色
--  发布时间：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
--  发布时间：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
--  发布时间：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")
--  作者：有点色
--  发布时间：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编辑过]
--  作者：2900819580
--  发布时间：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")
--  作者：有点蓝
--  发布时间：2017/6/8 16:35:00
--  
cmd.CommandText = "SEL ECT DISTINCT 排产单号,mid(排产单号,3,2) AS 年 ，mid(排产单号,5,2) AS 月 From {订单表}"   ‘’这个应该怎么样写
--  作者：2900819580
--  发布时间：2017/6/8 17:08:00
--  
.NET Framework 版本：2.0.50727.5485
Foxtable 版本：2017.6.8.1
错误所在事件：
详细错误信息：
\'mid\' 不是可以识别的 内置函数名称。
--  作者：有点蓝
--  发布时间：2017/6/8 17:28:00
--  
Sqlserver数据库？

mid改为SubString