把数据库中表的内容加到treeview中时的一个细节问题，需改进，麻烦各位指教

[freehorse_1981]

我的表中只有两个字段，zu和biao 我的想法是这样的，在biao所在的zu相同的情况下，把所有的biao节点都加到同一个zu的节点下。我目前只实现了把记录逐条加进去，这样zu 相同的节点就不在同一个zu下。我的代码如下：
Set nodX = TreeView1.Nodes.Add(, , "r", "报表组 ", 1, 2)
con.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & "db1.mdb;Persist Security Info=False"
con.Open
mysql = "select * from report_table "
Rs.Open mysql, con, adOpenDynamic, adLockOptimistic
Do While Not Rs.EOF
Set nodX = TreeView1.Nodes.Add("r", tvwChild, "Z" & i, Rs!zu, 1, 2)
Set nodeX = TreeView1.Nodes.Add("Z" & i, tvwChild, "B" & i, Rs!biao, 1, 2)
loop
请问如何加以改进以实现我的效果，麻烦各位指教！

[freehorse_1981]

我试一下吧

[Cooly]

mysql = "select * from report_table group by zu"

[Cooly]

Dim TempString as String
Dim TempKey as Long

Do While Not Rs.EOF
if TempString = Rs!zu then
Set nodeX = TreeView1.Nodes.Add("Z" & TempKey, tvwChild, "B" & i, Rs!biao, 1, 2)
else
Set nodX = TreeView1.Nodes.Add("r", tvwChild, "Z" & i, Rs!zu, 1, 2)
Set nodeX = TreeView1.Nodes.Add("Z" & i, tvwChild, "B" & i, Rs!biao, 1, 2)
end if
TempString=Rs!zu
TempKey = i
Rs.MoveNext
loop

[freehorse_1981]

仁兄啊，能不能给我讲一下什么意思啊

[freehorse_1981]

我按照这个方法试了一下，怎么提示说“未找到元素”，麻烦给我讲解一下吧，我挺着急的

[freehorse_1981]

只好自己帮自己up了。各位给我帮帮忙吧，如果不够的话，我可以再加分！

[z2h]

一共2个FIELDS 那么TREE里就2个NODE？
如果是的话,先建立2个NODE然后按你的要求组装RECORDSET，再装NODE

[Cooly]

上面的错了

Set nodX = TreeView1.Nodes.Add(, , "r", "报表组 ", 1, 2)
con.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & "db1.mdb;Persist Security Info=False"
con.Open
mysql = "select * from report_table group by zu order by zu"
Rs.Open mysql, con, adOpenDynamic, adLockOptimistic

Dim TempString as String
Dim TempKey as Long

Do While Not Rs.EOF
if TempString = Rs!zu then
Set nodeX = TreeView1.Nodes.Add("Z" & TempKey, tvwChild, "B" & i, Rs!biao, 1, 2)
else
Set nodX = TreeView1.Nodes.Add("r", tvwChild, "Z" & i, Rs!zu, 1, 2)
Set nodeX = TreeView1.Nodes.Add("Z" & i, tvwChild, "B" & i, Rs!biao, 1, 2)
TempString=Rs!zu
TempKey = i
end if
Rs.MoveNext
loop

[chenxin790311]

应该是没有什么问题吧。思路是对的，有问题也只是一些细节问题了吧

[freehorse_1981]

问题解决了，结帐