Форум: "Базы";
Текущий архив: 2002.01.08;
Скачать: [xml.tar.bz2];
ВнизFastReport. frBand.Visible Найти похожие ветки
← →
asafr (2001-12-04 18:11) [0]Есть отчет Detail-Detail в FastReport. Каждый DetailBend (DetailBend1, DetailBend2) связан с различными DataSet (DataSet1, DataSet2). Также имеются два HeaderDetail (HeaderDetail1, HeaderDetail2 - соответственно)Необходимо, чтобы при CheckBox.Checked:=True/False на форме Delphi в отчете печаталась/не печаталась вторая часть отчета (DataSet2). Ничего не могу поделать - на мой взгляд все правильно, но код не работает: Bands всегда при печати Visible=True. Что не так? Что не учитываю?
procedure Tfm_Form1.frReport1BeforePrint(Memo: TStringList;
View: TfrView);
var
DetHeader, DetData :TfrBandView;
begin
DetHeader :=TfrBandView(frElectroGroup.FindObjec("DetHeader1"));
DetData :=TfrBandView(frElectroGroup.FindObject("DetData1"));
if CheckBox.Checked=True then begin
if DetHeader<> nil then
DetHeader.Visible:=True;
if DetData<> nil then
DetData.Visible :=True;
end else begin
if DetHeader<> nil then
DetHeader.Visible:=False;
if DetData<> nil then
DetData.Visible :=False;
end;
end;
Страницы: 1 вся ветка
Форум: "Базы";
Текущий архив: 2002.01.08;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.007 c