کنترل memo فست ریپورت

[khoshblagh]

با سلام خدمت دوستان
من میخوانم فرضا اگر متغیری خارج از گزارش مساوی مقدار خاصی باشد یک خط از گزارش چاپ نشود. مشکل اینه که نتونستم از بیرون گزارش مقدار یک متغیر را کنترل و در گزارش بر اساس آن خطی چاپ نشود.

[hamid-nic]

سلام
می توانید مقداری مشخص را از بیرون گزارش به گزارش پاس بدهید و سپس بر اساس اون در قسمت BeforPrint تصمیم گیری کنید . برای این کار نمونه هایی وجود دارد ، جست و جو کنید ..
موفق باشید .

[khoshblagh]

سلام
می توانید مقداری مشخص را از بیرون گزارش به گزارش پاس بدهید و سپس بر اساس اون در قسمت BeforPrint تصمیم گیری کنید . برای این کار نمونه هایی وجود دارد ، جست و جو کنید ..
موفق باشید .

با تشکر از پاسختان
من برای کارهای دیگر همین کار را انجام دادم ولی ظاهرا برای مقایسه و کاری که مورد نظر من میباشد جواب نمیدهد. در صورت امکان نمونه ای قرار دهید. متشکرم.

[MOJTABAATEFEH]

با سلام خدمت دوستان
من میخوانم فرضا اگر متغیری خارج از گزارش مساوی مقدار خاصی باشد یک خط از گزارش چاپ نشود. مشکل اینه که نتونستم از بیرون گزارش مقدار یک متغیر را کنترل و در گزارش بر اساس آن خطی چاپ نشود.

دوست عزیز اگر درست متوجه شده باشم بایستی به صورت زیر عمل نمایید

var

var1:typevar;

memo1:TfrxMemoView;

begin

if var1=X then

begin

memo1 := frxReport1.FindObject('Memo1')as TfrxMemoView;

memo1.Visible:=false;

end;

end;



 

موفق باشید

[khoshblagh]

با سلام خدمت دوستان
من این کد را با توجه به فرمایشات فوق نوشتم

procedure Memo34OnBeforePrint(Sender: TfrxComponent);

var

  var1:typevar;

   Memo34:TfrxmemoView;                                    

begin

   if var1='1' then begin

      Memo34:=frxChapFish.FindObject('Memo34') as TfrxmemoView;

      Memo34.Visible:=False;

   end;           

   else begin

      Memo34:=frxChapFish.FindObject('Memo34') as TfrxmemoView;

      Memo34.Visible:=True;

   end;

end;        

ولی این خطا را دریافت نمودم.

[MOJTABAATEFEH]

با سلام خدمت دوستان
من این کد را با توجه به فرمایشات فوق نوشتم

procedure Memo34OnBeforePrint(Sender: TfrxComponent);

var

  var1:typevar;

   Memo34:TfrxmemoView;                                    

begin

   if var1='1' then begin

      Memo34:=frxChapFish.FindObject('Memo34') as TfrxmemoView;

      Memo34.Visible:=False;

   end;           

   else begin

      Memo34:=frxChapFish.FindObject('Memo34') as TfrxmemoView;

      Memo34.Visible:=True;

   end;

end;        

ولی این خطا را دریافت نمودم.

دوست عزیز کدی که من براتون نوشتم نمونه است شما بایستی یکسری تغییرات میدادید کد رو براتون می نویسم

procedure TForm1.Button1Click(Sender: TObject);

var

  var1:string;

   Memo1:TfrxmemoView;

begin

var1:=edit1.text;

   if var1='1' then begin

      Memo1:=frxReport1.FindObject('Memo1') as TfrxmemoView;

      Memo1.Visible:=False;

      frxReport1.ShowReport(true);

   end

   else begin

      Memo1:=frxReport1.FindObject('Memo1') as TfrxmemoView;

      Memo1.Visible:=True;

      frxReport1.ShowReport(true);

   end;



end;

موفق باشید