delphi的while循环问题

Question

if adoquery1.RecordCount>0 then //如果用户存在，执行下面的语句；
     begin
     sqlstr:='select*from qxb where(YHM='''+aname+''')';
     adoquery1.Close;
     //数据库的连接使用Main_From的 ADOConnection来完成；
     adoquery1.Connection:=Main_Form.ADOConnection1;//调用主窗体的ADO控件；
     adoquery1.SQL.Clear;//清除上一次的SQL语句;
     adoquery1.SQL.Add(sqlstr);//添加查询语句；
     adoquery1.Active:=True;//打开其对应的表
     ADOQuery1.first;   
     while not adoquery1.Eof do
     begin
     a:=StrToInt(copy(adoquery1.FieldByName('cdx').AsString,1,1));
     b:=StrToInt(copy(adoquery1.FieldByName('cdx').AsString,2,2));
     //是拥有权限的主窗体菜单可用；
     Main_Form.MainMenu1.Items[a].Visible:=True;
     Main_Form.MainMenu1.Items[a].Items[b].Visible:=True;
     Next;
     end;各位帮看一下这个循环有什么问题····运行后程序直接死掉了···~~~~(>_<)~~~~ 

Answer 1

sqlstr:='select*from qxb where(YHM='''+aname+''')';  是你贴的问题还是真的没空格??

Answer 2

Next;  你没指定是哪个控件!!

Answer 3

改成 adoquery1.next; 就行了 不然就成了form.next;