چگونگی فرستاده یک رشته از برنامه به Fast Report

[مصطفی مختاری]

با سلام خدمت دوستان عزیز.
بنده برای فیلتر کردن Adotable در موقع اجرا نیاز دارم که رشته filter رو از برنامه به Fast Report بفرستم.
و در اونجا با کد :

ADOTable1.Filtered := True ;
ADOTable1.Filter := ' vahed_name = 10'
فیلترش کنم برای پرینت.

اما نمی دونم چطوری این رشته 'vahed_name = 10' رو به کامپوننت Fast Report بفرستم ؟
کسی می تونه کمک کنه ؟

[مصطفی مختاری]

جواب در یکی از پست های آقای کشاورز بود.
با تشکر از آقای کشاورز :

می تونید از اسکریپتی مثل این در ویرایشگر کد FastReport استفاده کنید:


var
MyVar : string;
procedure frxMemo1OnBeforePrint(Sender: TfrxComponent);
var
FData : integer;
begin
FData := <DataSet1."MyField">;
case FData of
0 : MyVar := 'A';
1 : MyVar := 'B';
2 : MyVar := 'C';
end;
end;در اینجا FData مقدار فیلد MyField از Dataset1 را که یک مقدار عددی هست، در رویداد OnBeforePrint یک کنترل frxMemo می خواند، سپس بر اساس مقدار بدست آمده از فیلد، متغیر MyVar را یک یک متغیر رشته ایی هست، مقداردهی می کند. حالا تنها کاری که شما باید انجام بدید این هست که از متغیر MyVar در کنترل frxMemo خود استفاده کنید، مثلا در ویرایشگر متن آن بنویسید [MyVar] خود FastReport مقدار بدست آمده برای MyVar را با این عبارت عوض می کند.

[ha2000]

سلام
هر چند دير شده ، ولي به همه اجزاري Fast از طريق كد زير امكان دسترسي است:

( frxReport1.FindObject(NameMem) as TfrxMemoView).Text := '';

[hadisalahi2]

از این کتاب آموزشی قرار گرفته شده در این پست میتونی استفاده کنی
http://barnamenevis.org/forum/showthread.php?t=78025