请教将一个表内容显示到TreeView的用法

Question

有这么个查询...
select left(编码部门.部门名称,5) as 部门,left(表职员资料全体.工号,2) as 组,表职员资料全体.工号,表职员资料全体.姓名 from 表职员资料全体,编码部门 where 表职员资料全体.部门编码=编码部门.部门编码 and order by 表职员资料全体.工号
---------其中"工号"是唯一...
想做成这么个treeview...应该怎样做?
-----------------
档案
  ---X部门
  --------x组
  ----------工号,姓名
  ----------工号,姓名
  --------xx组
  ----------工号,姓名
  ----------工号,姓名
  ---xx部门
  --------x组
  ----------工号,姓名
  ----------工号,姓名
  --------xx组
  ----------工号,姓名
  ----------工号,姓名
----------------------------------应该怎样才可以做到呢?
请各位指教,谢谢!

Answer 1

on error resume next
  do until rs.eof
      tvw.nodes.add ,,rs("部门"),rs("部门")
      tvw.nodes.add rs("部门"),tvwchild,rs("组"),rs("组") 
      tvw.nodes.add rs("组"),tvwchild,rs("工号"),rs("工号")  & "," & rs("姓名")
      rs.movenext
  loop
  rs.close
  on error goto 0

Answer 2

请搜索李洪根的树使用的例子，代码很详细在首页搜索:树形结构在开发中的应用地址：http://dev.csdn.net/develop/article/23/23258.shtm

Answer 3

http://dev.csdn.net/develop/article/23/23258.shtm
我刚看了，不错不错

Answer 4

部门和组都存在重名，所以先判断一下，
SQL语句中排序:Order by left(编码部门.部门名称,5),left(表职员资料全体.工号,2),表职员资料全体.工号
Dim strTmp1 as string
Dim strTmp2 as string
While not rs.eof
     if strcmp(strTmp1,rs("部门")) <>0 then
           tvw.nodes.Add ,,rs("部门"),rs("部门")
           strTmp1=rs("部门")
     end if
     if strcmp(strTmp2,rs("组")) <>0 then
         tvw.nodes.add rs("部门"),tvwChild,rs("组"),rs("组")
         strTmp2=rs("组")
     end if
     tvw.nodes.add rs("组"),tvwchild,rs("工号"),rs("工号")  & "," & rs("姓名")
     rs.movenext
wend

Answer 5

也就是说对treeview的click事件进行判断?
有时就是想不明白treview是以什么去工作的...
谢谢楼上各位!