quickreport打印问题(20分)

  • 主题发起人 主题发起人 兔子帅死了
  • 开始时间 开始时间

兔子帅死了

Unregistered / Unconfirmed
GUEST, unregistred user!
有控件dbgrid和QuickRep1..
dbgrid已经有数据显示
form3.QuickRep1.DataSet:=form2.DBGrid1.DataSource.DataSet;
form3.QuickRep1.Preview;
form3.QuickRep1.Print;
空白.....................
高手帮忙下
 
在QUICKREP1中的DetailBand1中的控件的DataSource.DataSet也必须设置
 
详细点好吗..新手..
加了QRDBText,qrlable,qrband
begin
form3.Show;
form3.QuickRep1.DataSet:=form1.DataSource1.DataSet;
form3.QRDBText1.DataSet:=form1.ADOQuery2;
form3.QRDBText1.DataField:=form2.DBGrid1.Fields[0].AsString;
form3.QRDBText2.DataField:=form2.DBGrid1.Fields[1].AsString;
form3.QRDBText3.DataField:=form2.DBGrid1.Fields[2].AsString;
form3.QRDBText4.DataField:=form2.DBGrid1.Fields[3].AsString;
form3.QRDBText5.DataField:=form2.DBGrid1.Fields[4].AsString;
form3.QRDBText6.DataField:=form2.DBGrid1.Fields[5].AsString;
//form3.QRDBText1.DataField:='gunnum';
form3.QuickRep1.Preview;
end;
还是空白
 
form3.QRDBText1.DataField:=form2.DBGrid1.Fields[0].AsString;
form3.QRDBText2.DataField:=form2.DBGrid1.Fields[1].AsString;
form3.QRDBText3.DataField:=form2.DBGrid1.Fields[2].AsString;
form3.QRDBText4.DataField:=form2.DBGrid1.Fields[3].AsString;
form3.QRDBText5.DataField:=form2.DBGrid1.Fields[4].AsString;
form3.QRDBText6.DataField:=form2.DBGrid1.Fields[5].AsString;
你这些是赋的字段值,应该赋字段名,这样做:
form3.QRDBText1.DataField:=form2.DBGrid1.Fields[0].FiledName;
form3.QRDBText2.DataField:=form2.DBGrid1.Fields[1].FiledName;
form3.QRDBText3.DataField:=form2.DBGrid1.Fields[2].FiledName;
form3.QRDBText4.DataField:=form2.DBGrid1.Fields[3].FiledName;
form3.QRDBText5.DataField:=form2.DBGrid1.Fields[4].FiledName;
form3.QRDBText6.DataField:=form2.DBGrid1.Fields[5].FiledName;
 
............
form3.QRDBText1.DataField:=form1.ADOQuery2.FieldByName('?').AsString;
.......
问号处为字段名;
 
弱智,你这跟别人用序号引用没什么分别
 
后退
顶部