کنترل memo فست ریپورت [بایگانی]

khoshblagh

شنبه 13 شهریور 1389, 11:05 صبح

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

hamid-nic

شنبه 13 شهریور 1389, 23:54 عصر

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

khoshblagh

یک شنبه 14 شهریور 1389, 08:02 صبح

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

MOJTABAATEFEH

یک شنبه 14 شهریور 1389, 09:26 صبح

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

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

var
var1:typevar;
memo1:TfrxMemoView;
begin
if var1=X then
begin
memo1 := frxReport1.FindObject('Memo1')as TfrxMemoView;
memo1.Visible:=false;
end;
end;

موفق باشید

khoshblagh

دوشنبه 15 شهریور 1389, 08:21 صبح

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

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

دوشنبه 15 شهریور 1389, 11:52 صبح

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

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;

موفق باشید