Question

delphi编程问题语句循环

With ADOPattern Do
begin
I := 2 ;
Close;
SQL.Add(Sti+'and (tiLineFlag = '''+IntToStr(2)+''')');
Open;

With StringGrid1 Do
begin
//K := I - 1;
Cells[5, 1] := Trim(IntToStr(FieldByName('Sum').AsInteger));

end;

I := 3 ;
Close;
SQL.Add(Sti+'and (tiLineFlag = '''+IntToStr(3)+''')');
Open;

With StringGrid1 Do
begin
//K := I - 1;
Cells[5, 2] := Trim(IntToStr(FieldByName('Sum').AsInteger));

end;

end;

为何grid中只显示第一条值，循环怎么写可以分别显示相应的值
我发现问题所在了，我没有写SQL清除语句，添加之后OK!

Answer 1

open();
while not eof do
begin
with stringgrid1 do
begin
......
end;
next();
end;
close();

Answer 2

你加个datasource，连下就可以显示所有的了