我有一个(重复的)细节带,并附有一个子带:
我想让子带隐藏,直到它打印最后一个细节带。从概念上讲,它类似于:
EOF?
我的第一个想法是检查.EOF
数据集的属性;你可以在数据行上,但它仍然是 EOF:
procedure TForm6.DetailBand1BeforePrint(Sender: TQRCustomBand; var PrintBand: Boolean);
begin
// Print our child band if we're the last detail band:
ChildBand1.Enabled := QuickRep1.DataSet.EOF;
end;
但事实.EOF
并非如此。
也许BeforePrint发生在内部.Next
发生之前,所以我尝试AfterPrint:
procedure TForm6.DetailBand1AfterPrint(Sender: TQRCustomBand; BandPrinted: Boolean);
begin
// Print our child band if we're the last detail band:
ChildBand1.Enabled := QuickRep1.DataSet.EOF;
end;
但.EOF
从未设置。
如何检测到最后一个细节带正在打印?
于是问题就变成了:
我如何检测到最后一个 rbDetail 带正在打印?