addtree.bas

一套源代码完整的企事业人事管理系统

Attribute VB_Name = "addTree"
'Download by http://www.codefans.net
'公用变量---------------------
Public nod As Node '声明树节点

Public Declare Sub InitCommonControls Lib "comctl32.dll" () 'XP效果


'公用过程
Public Sub addTVW(ByVal TVW As TreeView) '添加树视过程

     Set nod = TVW.Nodes.Add(, , "A", gGsmc, 3)

Call OpenConn
SQL = "select * from 单位设置"
rs.Open SQL, cn, 1, 1
Do While Not rs.EOF
   If rs!Root = 0 Then
       Set nod = TVW.Nodes.Add("A", tvwChild, "B" & rs!单位名称, rs!部门名称, 1)
   Else
       Set nod = TVW.Nodes.Add("B" & rs!单位名称, tvwChild, "C" & rs!dwid, rs!部门名称, 2, 3)
   End If
   rs.MoveNext
Loop
Call CloseConn
If TVW.Nodes.Count > 0 Then '展开第一级
    TVW.Nodes(1).Expanded = True
End If
End Sub