var a,i:integer;
begin
adoquery1.open;
a:=adoquery1.RecordCount;
begin
for i:=0 to a-1 do
begin
dblistbox1.items.Add(adoquery1.FieldValues['name']);
adoquery1.MoveBy(1);
end;
end;
close;
end;
...全文
506打赏收藏
有谁能用with do对下列语句进行改造?
var a,i:integer; begin adoquery1.open; a:=adoquery1.RecordCount; begin for i:=0 to a-1 do begin dblistbox1.items.Add(adoquery1.FieldValues['name']); adoquery1.MoveBy(1); end; end; close; end;
var a,i:integer;
begin
with adoquery do
begin
open;
a:=RecordCount;
begin
for i:=0 to a-1 do
begin
dblistbox1.items.Add(FieldValues['name']);
MoveBy(1);
end;
end;
close;
end;
end;
var a,i:integer;
begin
with adoquery1 do
begin
open;
a:=RecordCount;
for i:=0 to a-1 do
begin
dblistbox1.items.Add(FieldValues['name']);
MoveBy(1);
end;
close;
end;
end;
哈哈,是这样的。
var a,i:integer;
begin
With AdoQuery1 do
Begin
open;
a:=RecordCount;
for i:=0 to a-1 do
begin
dblistbox1.items.Add(FieldValues['name']);
MoveBy(1);
end;
close;
end;
end;
顺便,你为什么这样遍历查询数据?这样更容易吧。
begin
With AdoQuery1 do
Begin
open;
First;
While not eof do
Begin
dblistbox1.items.Add(FieldValues['name']);
Next;
end;
close;
end;
end;