补充一下: form1上有二个安钮,一个打印 一个打印预览form3上放了一个quickrep还有一个DataModule2用于数据库的链接代码如下:procedure TForm1.Button1Click(Sender: TObject); begin with DataModule2.ADOQuery1 do begin SQL.Clear; SQL.add('select * from book'); open;form3.QuickRep1.Dataset:=DataModule2.ADOQuery1; form3.QRDBText1.Dataset:=DataModule2.ADOQuery1; form3.QRDBText2.Dataset:=DataModule2.ADOQuery1; form3.QRDBText3.Dataset:=DataModule2.ADOQuery1; form3.QRDBText1.DataField:=FieldByName('bzh').AsString; form3.QRDBText2.DataField:=FieldByName('name').AsString; form3.QRDBText3.DataField:=FieldByName('dj').AsString;form3.QuickRep1.Preview; end;end; QRDBText显示不出来.
form1上有二个安钮,一个打印 一个打印预览form3上放了一个quickrep还有一个DataModule2用于数据库的链接代码如下:procedure TForm1.Button1Click(Sender: TObject);
begin
with DataModule2.ADOQuery1 do
begin
SQL.Clear;
SQL.add('select * from book');
open;form3.QuickRep1.Dataset:=DataModule2.ADOQuery1;
form3.QRDBText1.Dataset:=DataModule2.ADOQuery1;
form3.QRDBText2.Dataset:=DataModule2.ADOQuery1;
form3.QRDBText3.Dataset:=DataModule2.ADOQuery1;
form3.QRDBText1.DataField:=FieldByName('bzh').AsString;
form3.QRDBText2.DataField:=FieldByName('name').AsString;
form3.QRDBText3.DataField:=FieldByName('dj').AsString;form3.QuickRep1.Preview;
end;end;
QRDBText显示不出来.
不过不知道上面的为什么不行?还有一个问题。字段太长,如何折行呀?
form3.QRDBText2.DataField:=FieldByName('name').AsString;
form3.QRDBText3.DataField:=FieldByName('dj').AsString;
好象有问题
应该是
form3.QRDBText1.DataField:='bzh'
form3.QRDBText2.DataField:='name'
form3.QRDBText3.DataField:='dj'