J
jammi
Unregistered / Unconfirmed
GUEST, unregistred user!
[
]1、报表问题，急！！！打印主 明细表问题，要求打出5行，不够为空。（200分）
QRk：主表 'select * from rk'
QRk_d 细表 QRk_d.sql.text='select * from rk_d where id=rk.id'
按照大富翁上的回答：
在DetailBand是画出五行表格，每一行都加上一组相同的DBText
在每一组的最后一个DBText的OnPrint事件中加上DetailTable.Next;最后一行的不设！
设DetailBand的DetailBand.ForceNewPage:=True;
注意：同一组的明细DBText应该按顺序建立
在每行的第一个QrDBText的OnPrint事件上加上一个判断
begin
if DetailTabel.Eof then
Abort;//如果数据表到头则退出。
end;
procedure TRkFrm.ToolButton2Click(Sender: TObject);
begin
if not assigned(QrrkFrm) then
QrrkFrm := TQrrkFrm.Create(Application);
QrrkFrm.QuickRep1.Preview;
end;
不同的是我把所有报表控件都放在PageHeaderBand上,第一次预览可以，第二次点击就
没反应，请帮忙，特急！！！谢谢！！！
2、另外打印列数不固定的报表各位有什么好办法？（200分）
]1、报表问题，急！！！打印主 明细表问题，要求打出5行，不够为空。（200分）QRk：主表 'select * from rk'
QRk_d 细表 QRk_d.sql.text='select * from rk_d where id=rk.id'
按照大富翁上的回答：
在DetailBand是画出五行表格，每一行都加上一组相同的DBText
在每一组的最后一个DBText的OnPrint事件中加上DetailTable.Next;最后一行的不设！
设DetailBand的DetailBand.ForceNewPage:=True;
注意：同一组的明细DBText应该按顺序建立
在每行的第一个QrDBText的OnPrint事件上加上一个判断
begin
if DetailTabel.Eof then
Abort;//如果数据表到头则退出。
end;
procedure TRkFrm.ToolButton2Click(Sender: TObject);
begin
if not assigned(QrrkFrm) then
QrrkFrm := TQrrkFrm.Create(Application);
QrrkFrm.QuickRep1.Preview;
end;
不同的是我把所有报表控件都放在PageHeaderBand上,第一次预览可以，第二次点击就
没反应，请帮忙，特急！！！谢谢！！！
2、另外打印列数不固定的报表各位有什么好办法？（200分）