Public Sub SetNod(id As String)
Dim Rd As New ADODB.Recordset
Rd.Open "select 序号,项目 from 数据表 where and 上级项目=" & id & " order by 序号", Con
Do Until Rd.EOF
If id = "" Then
TreeView1.Nodes.Add "A", tvwChild, "A" & Rd(0), Rd(1)
Else
TreeView1.Nodes.Add "A" & id, tvwChild, "A" & Rd(0), Rd(1)
End If
SetNod Rd("序号")
Rd.MoveNext
Loop
Rd.Close
Set Rd = Nothing