- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 窗口目录树的筛选 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=190985)
-- 发布时间：2024/3/18 20:06:00
-- 窗口目录树的筛选
窗口中有个目录树筛选，是否对查询表管用，又如何写代码，我这里光显示无效表
[此贴子已经被作者于2024/3/18 20:07:42编辑过]
-- 发布时间：2024/3/18 20:42:00
--
写了什么代码，提示什么错误？http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&Id=150626
-- 发布时间：2024/3/18 21:00:00
--
窗口中绑定的表送货汇总表是销售接单表、发货表及发货明细表所得到的查询表，
此主题相关图片如下：1.png
报错的图片
此主题相关图片如下：2.png
写的代码
Dim cmd As New SQLCommand
Dim dt As DataTable
cmd.C
cmd.CommandText = "Select Distinct Year(发货日期) As 年, Month(发货日期) As 月, 客户来源,物流公司 Fro m {送货汇总表}"
dt = cmd.ExecuteReader()
Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")
trv.BuildTree(dt, "年|月|客户来源|物流公司")
trv.Nodes.Insert("显示所有行", 0)
[此贴子已经被作者于2024/3/18 21:00:45编辑过]
-- 发布时间：2024/3/18 22:17:00
--
麻烦老师看一下问题出在哪里，代码应该不会有问题吧
-- 发布时间：2024/3/18 22:40:00
--
Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")
trv.BuildTree(DataTables("某窗口_table1"), "年|月|客户来源|物流公司")
trv.Nodes.Insert("显示所有行", 0)
-- 发布时间：2024/3/18 22:41:00
--
或者
Dim cmd As New SQLCommand
Dim dt As DataTable
cmd.C
cmd.CommandText = "Select .... 把生成查询表的sql放到这里"
dt = cmd.ExecuteReader()
Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")
trv.BuildTree(dt, "年|月|客户来源|物流公司")
trv.Nodes.Insert("显示所有行", 0)
-- 发布时间：2024/3/18 22:53:00
--
谢谢老师