可是我已经设了呀!就如同下面的方法:
procedure TFormQuery.PrintQualityClick(Sender: TObject);
begin
//质量报表打印
QkrQuality.QRDBText1.DataSet := dm.Query1;
QkrQuality.QRDBText1.DataField := 'Name';
QkrQuality.QRDBText2.DataSet := dm.Query1;
QkrQuality.QRDBText2.DataField := 'SteelNo';
QkrQuality.QRDBText3.DataSet := dm.Query1;
QkrQuality.QRDBText3.DataField := 'Spec';
QkrQuality.QRDBText4.DataSet := dm.Query1;
QkrQuality.QRDBText4.DataField := 'TotalWeight';
QkrQuality.QRDBText5.DataSet := dm.Query1;
QkrQuality.QRDBText5.DataField := 'SuperWeight';
QkrQuality.QRDBText6.DataSet := dm.Query1;
QkrQuality.QRDBText6.DataField := 'SuperPer';
QkrQuality.QRDBText7.DataSet := dm.Query1;
QkrQuality.QRDBText7.DataField := 'InferWeight';
QkrQuality.QRDBText8.DataSet := dm.Query1;
QkrQuality.QRDBText8.DataField := 'InferPer';
QkrQuality.QRDBText9.DataSet := dm.Query1;
QkrQuality.QRDBText9.DataField := 'Criterion';
QkrQuality.QRDBText10.DataSet := dm.Query1;
QkrQuality.QRDBText10.DataField := 'Remark';
QkrQuality.Preview;
end;
可是不行啊!怎么办呢?