J
jarl99
Unregistered / Unconfirmed
GUEST, unregistred user!
请哪位大侠指教,我在TQuickReport对象的BeforePrint事件响应方法中动态形成的TQRDBText类型的控件并命名为TextField1
怎么能在TQuickReport中的控件TQRBand的BeforePrint事件响应方法中引用TextField1
(我直接引用是不能编译)
procedure TQuickReport1.QuickRepBeforePrint(Sender: TCustomQuickRep;var PrintReport: Boolean);
var
myText: TQRDBText;
begin
myText := TQRDBText.Create(self);
myText.name='TextField1';
.......
.......
end;
procedure TQuickReport1.oDetailBandAfterPrint(Sender: TQRCustomBand;BandPrinted: Boolean);
begin
//怎么在此引用(目的是想根据数据库的值判断是否打印当前记录的对应某字段值)
end;
怎么能在TQuickReport中的控件TQRBand的BeforePrint事件响应方法中引用TextField1
(我直接引用是不能编译)
procedure TQuickReport1.QuickRepBeforePrint(Sender: TCustomQuickRep;var PrintReport: Boolean);
var
myText: TQRDBText;
begin
myText := TQRDBText.Create(self);
myText.name='TextField1';
.......
.......
end;
procedure TQuickReport1.oDetailBandAfterPrint(Sender: TQRCustomBand;BandPrinted: Boolean);
begin
//怎么在此引用(目的是想根据数据库的值判断是否打印当前记录的对应某字段值)
end;