procedure TForm1.Button26Click(Sender: TObject);
var
i,i1:integer;
s,s1:string;
begin
datasource1.enabled:=false;
while True do
begin
ADOQuery1.Close;
ADOQuery1.SQL.Clear;
s:='select * from 糗百 where 数量 < 1';
//showmessage(s);
ADOQuery1.SQL.Add(s);
ADOQuery1.Open;
if adoquery1.recordcount=0 then break;
s1:=adoquery1.fieldbyname('网名').asstring;
ADOQuery1.Close;
ADOQuery1.SQL.Clear;
s:='select * from 糗百 where 网名 = '+''''+s1+'''';
//showmessage(s);
ADOQuery1.SQL.Add(s);
ADOQuery1.Open;
i1:=adoquery1.recordcount;
ADOQuery1.Close;
ADOQuery1.SQL.Clear;
s:='update 糗百 set 数量 ='+inttostr(i1)+' where 网名 = '+''''+s1+'''';
//s:='update 糗百 set 数量 = ( select count(*) from 糗百 where 网名 = '+''''+s1+''''+' )'+' where 网名 = '+''''+s1+'''';
//showmessage(s);
ADOQuery1.SQL.Add(s);
ADOQuery1.execsql;
memo2.Lines.Add(s1+' 数量：'+inttostr(i1));
//for I := 0 to adoquery1.recordcount - 1 do
// begin
// adoquery1.Edit;
// adoquery1['数量']:= adoquery1.recordcount;
// adoquery1.Post;
// adoquery1.next;
// end;
end;
datasource1.enabled:=true;
end;

你是想用while. Do无限循环搜索么，如果不是
用if看看

select count()......

update (select * from 糗百 where 数量 < 1)