共7 条记录, 每页显示 10 条, 页签:
[1]
[浏览完整版]
标题：窗口目录树的筛选
1楼
g1j2h3 发表于：2024/3/18 20:06:00窗口中有个目录树筛选，是否对查询表管用，又如何写代码，我这里光显示无效表
[此贴子已经被作者于2024/3/18 20:07:42编辑过]
2楼
有点蓝 发表于：2024/3/18 20:42:003楼
g1j2h3 发表于：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编辑过]
4楼
g1j2h3 发表于：2024/3/18 22:17:00麻烦老师看一下问题出在哪里，代码应该不会有问题吧
5楼
有点蓝 发表于：2024/3/18 22:40:00Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")
trv.BuildTree(DataTables("某窗口_table1"), "年|月|客户来源|物流公司")
trv.Nodes.Insert("显示所有行", 0)
6楼
有点蓝 发表于：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)
7楼
g1j2h3 发表于：2024/3/18 22:53:00谢谢老师
共7 条记录, 每页显示 10 条, 页签:
[1]