View Full Version : نحوه تغییر مقدار Memo در FastReport؟
SYNDROME
پنج شنبه 22 شهریور 1386, 16:54 عصر
با سلام
دوستان من یک فیلد با نام ID از نوع Int در بانک SQLدارم.
حالا در FastReport آن را به راحتی نمایش می دهم.
مشکل بنده این است که می خواهم به جای عددها مثلا اگر فیلد ID برابر 1 بود مقدار X را و اگر برابر 2 بود مقدار Y را در یک Memo در FastReportنمایش بدهد.
می خواهم کد فوق را در FastReportبنویسم.
مثال
ID نمایش در memo
1 X
2 Y
با تشکر فراوان
kamal_habibi
پنج شنبه 22 شهریور 1386, 20:19 عصر
ببینید من هم این مشکل رو داشتم ولی به این صورت عمل کردم شاید منطقی نباشه ولی عملی هستش
بر رو فرمم دو تا Label گذاشتم و براشون یک شرط گذاشتم به اینصورت که وقتی کاربر بر روی هر رکوردی کلیک کرد اگر اون فیلد مورد نظر 1 بود Label1.caption:=x اگر هم2 بود Label1.caption:=y بعد Visible آنها را False کردم
بعد بر روی Buttonی که کاربر قرار است برای نمایش گزارش کلیک کند چنین دستوری نوشتم
Var
char1:TfrxMemoView;
begin
char1:=Frxreport1.FindObject('Memo1') as TfrxMemoView;
char1.Text:=label1.caption;
frxReport1.ShowReport(True);
Memo1 یک عنصر از نوع Memo است در Fast Report
اگر این توضیحات کارتونو راه انداخت چه بهتر و گرنه بفرمائید مثال رو براتون بذارم
امیدوارم که کمکتون کرده باشم
SYNDROME
پنج شنبه 22 شهریور 1386, 20:44 عصر
با سلام
با تشکر از دوست گرامی
منظور بنده این بود که من 10 تا رکورد دارم که فیلد IDآن 1 یا 2 است و Memo درباند Detail قرار دارد و در هر سطر ممکن است تغییر کند.
من منتظر راهنمایی شما هستم.
با تشکر
Will_Smith
پنج شنبه 22 شهریور 1386, 20:54 عصر
دو تاراه داری یکی اینکه میتونی توی دلفی یه Case بزاری و موقعی که میخای مقادیر رو به Fast Report بفرستی مقادیر صحیح رو بفرستی
و یک راه دیگه هم Script نویسی توی Fast Report هست که توی سایت قبلا دیدم دقیقا همین مشکلی که میگی آقای علی کشاورز عزیز(البته اگه اشتباه نکنم ایشون بودن) جوابش رو دادن
SYNDROME
پنج شنبه 22 شهریور 1386, 20:58 عصر
با سلام
دوست عزیز اگر امکان دارد لینکی مورد نظر را قرار دهید.
من هر چقدر جستجو کردم پیدا نکردم.
موفق باشید
vcldeveloper
جمعه 23 شهریور 1386, 00:19 صبح
http://barnamenevis.org/forum/showthread.php?t=76828
vBulletin® v4.2.5, Copyright ©2000-1404, Jelsoft Enterprises Ltd.