利用TREEVIEW生成部门结构

Question

treeview结构数据库架构

Answer 1

insert into DEPARTMENTS values (1,总公司,0)
insert into DEPARTMENTS values (6,123,1)
insert into DEPARTMENTS values (7,456,1)
insert into DEPARTMENTS values (8,789,6)
insert into DEPARTMENTS values (9,567,8)
insert into DEPARTMENTS values (10,345,9)
insert into DEPARTMENTS values (11,256,7)
insert into DEPARTMENTS values (12,698,6)
insert into DEPARTMENTS values (13,1,10)
insert into DEPARTMENTS values (14,2,13)
insert into DEPARTMENTS values (15,3,14)
insert into DEPARTMENTS values (16,4,15)
insert into DEPARTMENTS values (17,5,16)
insert into DEPARTMENTS values (18,6,17)
insert into DEPARTMENTS values (19,7,18)
insert into DEPARTMENTS values (20,8,19)
insert into DEPARTMENTS values (21,9,20)
insert into DEPARTMENTS values (22,11,21)
insert into DEPARTMENTS values (23,oo,13)
Call openRs("select deptid,deptname,supdeptid from DEPARTMENTS where  supdeptid is not null order by supdeptid")
     Do While Not rs.EOF
            If rs.Fields!supdeptid = 0 Then
               Set Node = TreeView1.Nodes.Add(, , "A" & rs.Fields!deptid, Trim(rs.Fields!deptname))
            Else
               Set Node = TreeView1.Nodes.Add("A" & rs.Fields!supdeptid, tvwChild, "A" & rs.Fields!deptid, Trim(rs.Fields!deptname))
            End If
        rs.MoveNext
     Loop自行解决了！达到了目的！