一个弄了很久都没办法搞定的问题，请各位帮一下忙。

[lushaox]

以下代码所要实现的功能是：
学校
-化学系
01班
02班
生物系
01班
02班
代码如下：

while not adoquery2.eof do
begin
name:=adoquery2.FieldByName('sfzm').AsString;
ChiNode := TreeView1.Items.Add(RootNode,name);
for m:=1 to ADOQuery1.RecordCount do
while not adoquery1.eof do
begin
if name=adoquery1.FieldByName('sfzm').AsString then
begin
iChiNode := TreeView1.Items.AddChild(ChiNode,ADOQuery1.FieldByName('cdxh').AsString);
ADOQuery1.Next;
end;
end;
adoquery2.Next;
end;
但运行了一下出现了了这种情况：
学校
-化学系
01班
02班
生物系
01班
02班
02班
02班
02班
出现了多一次子结点的循环，麻烦各位给点指导指导，谢谢！

[rockswj]

怎么这么多循环？？
看你的表结构应该是主从关系，你可以循环主表数据集，让从表跟着动，然后填充树

[xixuemao]

一个SQL语句就可以实现的，老兄。

不用那么麻烦的。

[lemon_wei]

procedure TForm1.Button1Click(Sender: TObject);
var
RootNode : TTreeNode;
ChildNode : TTreeNode;
name : string;
begin
RootNode := TreeView1.Items.AddChild(nil, '学校');
while not AdoQuery2.Eof do
begin
name := AdoQuery2.FieldValues['sfzm'];
ChildNode := TreeView1.Items.AddChild(RootNode, name);
if not (AdoQuery1.Bof and adoquery1.Eof) then AdoQuery1.First;
while not AdoQuery1.Eof do
begin
if (name = AdoQuery1.FieldValues['sfzm']) then
begin
TreeView1.Items.AddChild(ChildNode, AdoQuery1.FieldValues['cdxh']);
end;
AdoQuery1.Next;
end;
AdoQuery2.Next;
end;
end;

-------------------------------
select * from 表2
order by sfzm,cdxh
-------------------
select * from 表1
order by sfzm
--------------------------------
测试通过

[lushaox]

谢谢！问题解决。