گزارش داینامیک

[mohammadmowlavi]

با سلام و خسته نباشید خدمت دوستان محترم
بنده ان سایت رو با سواد اندک خودم زیر و رو کردم ولی نتونستم تو وی بی 6 با کریستال ریپورت گزارشی که کاربر در حین اجرا بتونه فيلداشو تغییر بده با آبجکت هاش رو پیدا نکردم لذا از اساتید محترم استدعای کمک و یا قرار دادن نمونه ای برای آموزش دارم
به امید فرج
یا حق
التماس دعا

[vbhamed]

سلام
اين يك نمونه :
http://www.arminaco.com/crystalparameter.zip

[mohammadmowlavi]

سلام بعد از نصب ویندوز xp mode و نصب وی بی و کریستال بازم نامید شدم ولی بازم تشکر بنده ارسال پارامتر به کریستال رو بلدم منظور من اینه

http://www.codeproject.com/Articles/20670/Dynamic-Crystal-Report-with-C

تصویر هم ضمیمه میکنم میخوام کاربر قبل پرینت فیلدای مورد نیازشو تیک بزنه بعد پرینت بگیره

[vbhamed]

سلام
چيزي كه شما مي‌خواين به عنوان نمونه به اين شكل ميشه ولي به من موقع اجرا خطاي لايسنس داد و ممكنه با كريستال شما مشكلي نداشته باشه
من تو كريستال 9 تست كردم

    Dim crRept  As New CRAXDRT.Report

    crRept.Sections(2).AddFieldObject "Name", 10, 100

[vbhamed]

سلام
چيزي كه شما مي‌خواين به عنوان نمونه به اين شكل ميشه ولي به من موقع اجرا خطاي لايسنس داد و ممكنه با كريستال شما مشكلي نداشته باشه
من تو كريستال 9 تست كردم، همون مثال بالا رو دوباره دانلود كنيد

 Dim crRept As New CRAXDRT.Report

crRept.Sections(2).AddFieldObject "Name", 10, 100

البته مشابه اينم ميشه بدون مشكل

 crRept.FormulaFields.GetItemByName("MainText").Tex  t = t

crRept.Sections("DetailSection1").ReportObjects("Y  ellowText").Top = 2221

crRept.Sections("DetailSection1").ReportObjects("T  ext1").Left = 10

[mohammadmowlavi]

ممنون از لطفتون تست میکنم خبرشو بهتون میدم البته من باید تو کداتون تغییراتی بدم چون با cr10 کار میکنم
بازم ضمن تشکر و حوصله ای که به خرج میدین
من طبق دستورات شما عمل کردم
ولی برای رسیدن به نتیجه نهایی قطعا به کمک بیشتری نیاز دارم
تصویر cr10 و گزارشی که شما برام گذاشتینو میزارم من تمام دستوراتی که در دکمه Put in Report گذاشته بودین رو حذف و دستورات شما رو گذاشتم ولی جواب نگرفتم
اگر امکانش هست لطف کنید و بیشتر توضیح بدین

[vbhamed]

سلام
چون ورژن كريستال شما فرق مي‌كنه بهتره يك طور ديگه تست كنيد
متغير crRept رو به Watch اضافه كنيد Debug Menu -> Add Watch
بعدش تو پنجره Watch روش كليك كنيد تا زير مجموعه هاش از جمله Section ديده بشه، بعد بخش Section رو باز كنيد و Item مورد نظر كه مشخصاتش مياد و به همين ترتيب به تمام خواص اون مي‌تونيد دسترسي داشته باشيد و طبق مسيري كه مي‌بينيد بعضي از خواص اجازه تغيير داده شدن هم دارن

[mohammadmowlavi]

من شرمنده شما هستم بازم نشد فکر کنم تصویر خودش گویا باشه همه متغیزهارو دونه به دونه به

Watch اضافه کردم ولی هیچ اطلاعاتی در مورد اونها به من نمیده حتی زمان اجرا

به نظر شما میشه به تعداد فیلدهای جدول در کریستال ریپورت فيلد پارامتری ایجاد کرد بعد به جای اتصال به دیتابیس رکورد ست فیلتر شده رو به کریستال ریپورت پاس داد
با این فرمول هم میشه کاری کرد ستونهایی که دیتا ندارند حذف بشن

stringvar ch1="";

if {tb1.field1} like "*" then

ch1:="نام مورد نظر";

ولی این شکلی چندتا مشکل داره
درسته اسم ستون نیست ولی خودش هست
چطور میشه عرض فیلدها خودکار بشه

[vbhamed]

سلام
اما پست شما هيچ تصويري رو نداره، لينك جديد هم كه دادين مشكل داشت، لطفا اول تست كنيد خودتون

[mohammadmowlavi]

ببخشید من نتونستم با سیستم آپلود تاپیک کار کنم مجبور شدم تو یه سایت دیگه آپش کنم اینم لینکش
روی سیستم خودم که عکسو نمایش میده شاید لینک عکسو برای هر آی پی جدا نشون میده
http://uplod.ir/lwywt9xrp0hc/1.jpg.htm

[vbhamed]

سلام
شما فقط متغير crRept رو احتياج داريد و اونهم موقعي در Watch به شما نشونش ميده كه دستور crApp.OpenReport اجرا شده باشه، گفتم كه، بايد در حالت ديباگ برنامه چك كنيد نه وقتي كه هنوز برنامه اجرا نشده
برنامه رو با كليد F8 به صورت خط به خط اجرا كنيد و پنجره Watch رو ببينيد

[mohammadmowlavi]

http://upload7.ir/imgs/2014-03/79581515510270553049.jpg

با تشکر از حوصله ای که به خرج میدین بنده خدمتتون عرض کردم نه در حالت اجرا و نه در حالت کد نویسی چیزی مشخص نیست اون عکسم به خاطر اینه که بدونید همشونو گذاشتم تو پنجره و نتیجه ای حاصل نشد فرستادم اینم نتیجه ی زمان اجرا

[vbhamed]

سلام
خب تو اين عكس كه پنجره Watch كه ديده نميشه در حالت اجرا متغير crRept رو اضافه كنيد

[mohammadmowlavi]

سلام بلاخره رفتم یه ویندوز xp نصب کردم با ویندوز ایکس پی مود مشکل داشتم
خوب من این کارا کردم ولی از اطلاعات این پنجره چطور استفاده کنم به پیوست تصویرم ارسال شد
با تشکر
http://upload7.ir/imgs/2014-03/75191628820741851725.jpg

[vbhamed]

سلام
نمونه روش استفاده در پست شماره 5 و 6 هست

[mohammadmowlavi]

سلامنمونه روش استفاده در پست شماره 5 و 6 هست

یاعرض سلام و تشکر از شکیباییتون، میشه در مورد کدهاتون یه خورده ای توضیح بدین

اگر براتون مقدوره به مشکل دیگه هم در کریستال ریپوت داشتم ببینید وقتی تاریخ رو از دیتابیس میخونه این شکلی میشه ولی وقتی خودم به صورت پارامتری وارد میکنم مشکلی ندارم از راست چین و چپ چین متن گرفته تا MarginLeft و MarginRight رو هم امتحان کردم جواب نگرفتم شما راه حلی دارین؟؟
http://upload7.ir/imgs/2014-03/04713652693641291285.jp

[vbhamed]

سلام
تو عكسي كه در پست شماره 5 گذاشتيد متغير crRept از همه بالاتره و زير شاخه هايي داره از جمله Areas و خود Areas هم زير شاخه هاي Count, Parent, Item
حالا فرض كنيد مي‌خواين به آيتم شماره 2 دسترسي داشته باشيد بايد بنويسيد

CrRept.Areas.Item(2)

همينطور براي بقيه گزينه ها به اينصورت ميشه مقداري رو خوند يا تغيير داد البته به شرط اينكه اجازه تغيير رو بده چون بعضي گزينه ها فقط خواندني هستند

در مورد دوم هم من خودم براي تاريخ يادمه از فيلد رشته اي استفاده مي‌كردم كه مشكل پيش نياد البته الان ديگه با كريستال كار نمي‌كنم