Dim cmd As New SQLCommand Dim dt AsDataTable cmd.CommandText = "SELECT DISTINCT cast(Year(日期) as nvarchr(4)) + cast(Month(日期)as nvarchr(2)) As 年月 From {订单}"
dt = cmd.ExecuteReader() Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1") trv.BuildTree(dt, "年月")
加好友 
发短信
Post By：2020/11/25 9:23:00 [只看该作者]
