如何将ADOQUERY中查询的结果打印输出，或者说将一个库表中的记录如何打印出，我的代码有什么错误(50分)

L

lili365

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-04-22

• #1

procedure TForm1.Button2Click(Sender: TObject);
var
i,j,x,y:integer;
str:string;
begin

x:=10;
y:=10;
str:='';
with printerdo

begin

begin
doc;
for j:=0 to adoquery2.RecordCount-1do

begin

for i:=0 to adoquery2.FieldCount-1do

begin

str:=str+adoquery2.Fields.asstring;
end;

canvas.TextOut(x,y,str);
adoquery2.Next;
end;

enddoc;
end;

end;


这段代码不能将我的记录正常打印，请大侠们指正

 

R

rebeccarice

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-04-22

• #2

你的str在不断的增加？
是否应该在更换记录的时候清空。

 

W

weekboy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-04-22

• #3

procedure TForm1.Button2Click(Sender: TObject);
var
i,j,x,y:integer;
str:string;
begin

x:=10;
y:=10;
with printerdo

begin

begin
doc;
for j:=0 to adoquery2.RecordCount-1do

begin

str:='';
for i:=0 to adoquery2.FieldCount-1do

begin

str:=str+adoquery2.Fields.asstring+' ';
end;

canvas.TextOut(x,y,str);
y:=y+10;
adoquery2.Next;
end;

enddoc;
end;

end;

 

L

lili365

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-04-22

• #4

二位仁兄的方法都不正确，另有高招？！

 

L

lili365

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-04-23

• #5

procedure TForm1.Button2Click(Sender: TObject);
var
i,j,x,y:integer;
str:string;
begin

x:=10;
y:=10;
str:='';
with printerdo

begin

begin
doc;
for j:=0 to adoquery2.RecordCount-1do

begin

for i:=0 to adoquery2.FieldCount-1do

begin

str:=str+adoquery2.Fields.asstring;
end;

canvas.TextOut(x,y,str);
str:='';
y:=y+10;
adoquery2.Next;
end;

enddoc;
end;

end;

上面这段代码打印出来的结果始终是最后一条记录，为什么，请指招

 

C

comfan2001

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-04-23

• #6

procedure TForm1.Button2Click(Sender: TObject);
var
i,j,x,y:integer;
str:string;
begin

x:=10;
y:=10;
str:='';
with printerdo

begin

begin
doc;
adoquery2.First ;
for j:=0 to adoquery2.RecordCount-1do

begin

for i:=0 to adoquery2.FieldCount-1do

begin

str:=str+adoquery2.Fields.asstring;
end;

canvas.TextOut(x,y,str);
str:='';
y:=y+10;
adoquery2.Next;
end;

enddoc;
end;

end;

添加这一句adoquery2.First ;看一看

 

L

lili365

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-04-23

• #7

我已经试过了，仍然不可以

 

L

lili365

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-04-24

• #8

这里的高手都到那去了

 

C

cbdiy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-04-24

• #9

得用别的对象吧！QuickRep
看看他里面的源代码就知道了。。

 

L

lili365

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-04-27

• #10

难道用这种方式就不能打印吗？

 

Q

qiandeng

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-04-28

• #11

我看是x,y的问题
x,y都要变的，10太少了，至少要加100
y := y +100;

 

L

lili365

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-05-04

• #12

xx

 

L

lili365

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-05-04

• #13

多人接受答案了。