- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]日期型目录树生产失败 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=179458)
-- 发布时间：2022/8/25 9:17:00
-- [求助]日期型目录树生产失败
此主题相关图片如下：222.png
我在帮助文件上抄了一段代码，是关于日期型目录树生成的，但是执行结果却啥东西都没有，抄的代码如下：
Dim cmd As New SQLCommand
Dim dt As DataTable
cmd.CommandText = "Select Distinct Year(录入时间) As 年, Month(录入时间) As 月, 台账编号 Fr om {成本消耗表}"
dt = cmd.ExecuteReader()
Dim trv1 As WinFo rm.TreeView = e.Fo rm.Controls("消耗台账列表")
trv1.BuildTree(dt, "年|月|台账编号")
trv1.Nodes.Insert("显示所有台账", 0)
Dim dt As DataTable
cmd.CommandText = "Select Distinct Year(录入时间) As 年, Month(录入时间) As 月, 台账编号 Fr om {成本消耗表}"
dt = cmd.ExecuteReader()
Dim trv1 As WinFo rm.TreeView = e.Fo rm.Controls("消耗台账列表")
trv1.BuildTree(dt, "年|月|台账编号")
trv1.Nodes.Insert("显示所有台账", 0)
其中将日期改成了录入时间，产品改成了台账编号，订单改成了成本消耗表
但是执行后发现，dt这个新生成的datatable却没有读取到任何数据，应该是这两行出了问题：
cmd.CommandText = "Select Distinct Year(录入时间) As 年, Month(录入时间) As 月, 台账编号 Fr om {成本消耗表}"
dt = cmd.ExecuteReader()
dt = cmd.ExecuteReader()
下面是取数据的内部表及执行后的结果截图
此主题相关图片如下：111.png
[此贴子已经被作者于2022/8/25 9:18:34编辑过]
-- 发布时间：2022/8/25 9:19:00
--
表格没有数据，或者没有保存。sql只能查询已经保存的数据
-- 发布时间：2022/8/25 9:53:00
-- [求助]这个目录树可以还原回table或datatable吗？
如题
-- 发布时间：2022/8/25 9:57:00
--
可以自己写代码遍历所有节点，然后添加到表格里