请高手帮忙，关于treeview与数据库！

Question

现有数据库表：
line（线路）
station（站点）该如何写代码，实现：
父级通过循环，列出线路
然后，点击该线路，其子级为站点+1路
  -广场
  -车站
  -商店

Answer 1

First： 加载line表中的线路，key 为线路的id(id为非重复值)
Second:  在treeview的nodeclick事件中,加载该线路的站点
         select * from station where lineid=node.key

Answer 2

我是这样做的：（可能有些麻烦）
  判断有几个“\”
  case 0
   txtSQL="select * ...."
  case 1
   txtsql="select * ..."
  case 2
   txtsql="select * ..."
    .....

Answer 3

手边没有现成的代码，可以写一些大概的代码给你private sub form_load
   call loadtreeview
end sub
'------加载treeview的父节点
private sub loadtreeview
dim nodex as node
dim rs as new adodb.recordset
dim conn as new adodb.connection
dim sqlstr as string'------clear nodes here 
treeview1.nodes.clear
'------load root node here
set nodex=treeview1.nodes.add(,,"root","root")conn.open "string for open connection here"
sqlstr="select lineid,linename from line order by lineid"
rs.open sqlstr,conn,adOpenKeyset, _
         adLockOptimistic
'------load line nodes  here
if not(rs.bof or rs.eof) 
   do while not rs.eof
       set nodex=treeview1.nodes.add("root",tvwchild,rs.fields("lineid"),rs.fields("linename"))
       rs.movenext
       loop
end if
if rs.state=adstateopen then
   rs.close
end if
set rs=nothing
set conn=nothing
end subprivate sub  treeview1_nodeclick()
dim nodx as node
dim snodx as node
dim rs as new adodb.recordset
dim conn as new adodb.connection
dim sqlstr as stringconn.open "string for open connection here"
sqlstr="select stationid,stationname from statetion where lineid="&nodx.key
rs.open sqlstr,conn,adOpenKeyset, _
         adLockOptimistic
set nodx=treeview1.selecteditem
if not(rs.bof or rs.eof) 
   do while not rs.eof
       set snodx=treeview1.nodes.add(nodx.key,tvwchild,rs.fields("lineid"),rs.fields("linename"))
       rs.movenext
       loop
end if
if rs.state=adstateopen then
   rs.close
end if
set rs=nothing
set conn=nothing
end sub