اشکال در نمایش پارامتر ارسال شده به گزارش

[ashkan209]

دوستان سلام
گزارشی طراحی کرده ام و یک پارامتر را با گزارش ارسال کرده ام ،اما متاسفانه در زمان اجرا و نمایش گزارش ، پارامتر مورد نظر در Viewer نمایش داده نمیشود .
ضمنا برای بررسی صحت ارسال پارامتر مورد نظر پس از فرمان CRViewer1.ViewReport ، با msgBox پارامتر مورد نظر را کنترل کردم واز ارسال پارامتر مطمئن شدم ،اما نمیدانم اشکال چیه که این پارامتر در گزارش نمایش داده نمیشود. ضمنا چنانچه به پارامتر مقدار اولیه بدهم در گزارش همان مقدار اولیه را نمایش میدهد.

Database: Access
Prog_Env: VB6
Crystal Ver: 8.5 Developer

نمونه برنامه پیوست می باشد
ممنون میشم اگه دوستان میدونند کمک کنند

[ashkan209]

بابا دمتون گرم !!!

[ashkan209]

کسی به این مشکل برخورد نکرده ؟
آیا راه حلی سراغ دارید که بتونم متغیر مورد نظر خودم را در Header گزارش ، ایجاد کنم؟

[shinsinbin@yahoo.com]

دوست عزیز فایل اکسس شما پسورد داشت
نتوانستم به ان کانکت شوم
اما یک اشتباه بارز داشتید اونهم اینکه بجای اینکه در گزارش پارامتر DateF را در قسمت پارامتر ها ایجاد کنید در قسمت فرمول ایجاد کرده اید
باید اون کدهای قدیمی را حذف و این کد را اضافه کنید
Report.ParameterFields(0) ="DateF"+ "1" + ";true
احتمالا کار کنه

[shinsinbin@yahoo.com]

بعد اگر کار کرد این پارامتر را در گزارش بکش و در قسمت هدر گزارشت بگذار
و DateF را هم از فرمول پاک کن

[ashkan209]

دوست عزیز بسیار سپاسگزارم از کمک و توجهتون
رمز Database = 1
------------------------------------------
تذکر شما در مورد جابجایی Formula و Parameter درست بود ، لذا کدهایی قبلی را پاک کردم و خط زیر را جایگزین نمودم ،ضمن اینکه یک پارامتر DateF نیز در محیط کریستال ایجاد کردم

Report.ParameterFields(0) ="DateF"+ "1" + ";true

کارهایی که فرمودید انجام دادم ،در ابتدا روی خط فوق خطای Subscript is out of range داد که وقتی بصورت زیر اصلاح کردم
Report.ParameterFields(1) ="DateF"+ "1" + ";true
خطای Object dos not suport this property or Method داد
نهایتا خط زیر را جایگزین نمودم
Report.ParameterFields(1).AddDefaultValue DateF
و به خواسته ام که اضافه نمودن یک متغیر به Header گزارش می باشد ، دست پیدا کردم ،اما با یک مشکل
که قبل از نمایش گزارش پنجره Enter Parameter Value می آید
حالا نمیدونم چطور میتونم از شر این پنجره خلاص شوم ؟