Dim cmd As New SQLCommand
Dim dt As DataTable
cmd.C
cmd.CommandText = "Select Distinct Year(接单日期) As 年, Month(接单日期) As 月, Day(接单日期) As 日 From {销售订单}"
dt = cmd.ExecuteReader()
Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")
trv.BuildTree(dt, "年|月|日","年 > 2020")
Dim trv1 As WinForm.TreeView = e.Form.Controls("TreeView2")
trv1.BuildTree(dt, "年|月|日","年 > 2020")
cmd.CommandText = "Select Distinct Year(申请日期) As 年, Month(申请日期) As 月, Day(申请日期) As 日 From {外协产品申请}"
dt2 = cmd.ExecuteReader()
Dim trv2 As WinForm.TreeView = e.Form.Controls("TreeView3")
trv2.BuildTree(dt2, "年|月|日","年 > 2020")
Dim trv3 As WinForm.TreeView = e.Form.Controls("TreeView4")
trv3.BuildTree(dt2, "年|月|日","年 > 2020")
加好友 
发短信
Post By：2021/6/24 23:38:00 [显示全部帖子]
