Question

vb中treeview连接两个数据表的问题

软件用的是visual basic 6.0
我有两个表:
表一名:employerinfo 字段 :employerID (员工号),employername(员工名),depart(所属部门)
表二名: departinfo 字段: departID(部门id),departname(部门名称),现在我要做一个treeview.按部门分类显示.点一个部门,底下有该部门的所有员工名字.
请写详细代码.写的好另有加分.
表一中的所属部门不是depart而是departID 是外键，主键是employerID
表二中的主键是departID, 可否把你做的这个原程序发给我？？
我的邮箱是feeltian88@yahoo.com.cn
感谢．调试出来后我再给一百

能不能再添加几个点击事件

Answer 1

Set node1 = TreeView1.Nodes.Add(, , "bm", " 部门")
sql = "select departname,departid from departinfo"
check.open sql,连接数据库字符串
check.MoveFirst
Do While Not check.EOF
key2 = Trim(check.Fields(1))
txt2 = Trim(check.Fields(0))
Set node2 = TreeView1.Nodes.Add(node1.Key, tvwChild, "A" & key2, txt2)
If baby.State = 1 Then baby.Close
sql = "select emploername,employerid from employerinfo where departid like '" & Trim(check.Fields(1)) & "%' and ccccode <> '" & check.Fields(1) & "'"
baby.Open sql, conn, adOpenStatic, adLockReadOnly
baby.MoveFirst
Do While Not baby.EOF
key3 = baby.Fields(1)
text3 = baby.Fields(0)
Set node3 = TreeView1.Nodes.Add(node2.Key, tvwChild, "B" & key3, text3, 1)
baby.MoveNext
Loop
check.MoveNext
Loop

大概意思是这样的，在我的程序里头是正确的，但是你给出的这两个表没有对应关系，找不到连接的字段，你再看看，员工表有没有departid字段，这段代码你可以稍微改动一下就可以了，希望能给你提供帮助.