主题：[求助] 目录树管理表 求教

2.年,月改为整数,好排序

Dim  Ls As String() = {"表A","表B","表C"}

Dim s,sql As String

For Each s In Ls

    sql+ = " UNION Select '表' As 表,'" & s & "' As 表名 ,年,月 From{" & s & "}"

Next

Dim cmd As New SQLCommand

Dim dt As DataTable

cmd.CommandText = sql.Substring(7)

dt = cmd.ExecuteReader()

'生成目录树

Dim tv As WinForm.TreeView

tv =e.Form.Controls("TreeView1")

tv.BuildTree(dt,"表|表名|年|月")

tv.Nodes.Add("图表","图表")