++++++++++++++高手帮忙,看看我这个两层和简单树,为什么会出错?++++++++++++++++

Question

没分了,走过路过的高手帮看看,怎么改?为什么会出错呢?谢了.在线等.
TreeView1.Items.Clear;
TreeView1.Items.Add(nil,'全部');
RootNode.ImageIndex:=0; //初始化大树
with DataM.q1 do
begin
   Close;
   SQL.Clear;
   SQL.Add('Select tag from Navtree group by tag ') ;
   Open;
   while not eof do //出错的位置++++++++++++++++++++
   begin
  Tags:=FieldValues['Tag'];
  RootNode:=TreeView1.Items.Add(Nil,Tags);
          //初始化小树
  with datam.q2 do
  begin
sql.Clear;
sql.Add('select name1 from Navtree where tag='''+trim(DataM.q1.FieldValues['Tag'])+''' troup by name1');
Open;
while not eof do
begin
TreeView1.Items.AddChild(RootNode,DataM.q2.FieldValues['name1']);
next;
end;
  end;   next;
   end;
end;

Answer 1

如果把q2这部份查询去掉就可以,但是这样的话我的子层就出不来了啊