Dim cmd As New SQLCommand
Dim dt As DataTable
cmd.C
cmd.CommandText = "查询 DISTINCT a.年月 AS 周期, customerName from (查询 year+month AS 年月,customerName From {R03_payable}) a ORDER BY a.年月 DESC"
dt = cmd.ExecuteReader()
Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")
trv.BuildTree(dt, "周期|customerName")
trv.Nodes.Insert("加载所有数据", 0)
现如图
此主题相关图片如下:1666171917061.jpg

实现如下
202209
202208
202207