delphi的while循环问题

[fyf719310284]

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;

各位帮看一下这个循环有什么问题····运行后程序直接死掉了···~~~~(>_<)~~~~

[dinoalex]

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

[dinoalex]

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

[dinoalex]

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

[fyf719310284]

O(∩_∩)O哈哈~···解决了···谢谢你····

[fyf719310284]

全部根据你说的改就行了··呵呵