انا اعمل تقرير علي الكريستال ريبورت 10 في بيئة IDE وليست RDC كنت عايز امرر لها قيمة من تكست بوكس من علي الفورم عشان تظهر في التقرير وكل الشرح اللي موجودة علي نظام التصميم بتاع RDC علما انا نازل عندي كريستال ريبورت 10 بروفيشنال كيف يتم عمل ذلك بالكود
بســم الله الـرحمــن الرحيــم
لا خير في كاتم العلم ...زكاه العلم ...التعليم صدقة جارية
لا تخلط ما بين شخصيتي وأسلوبي .. فشخصيتي هي
ما أنا عليه وتحت تصرفي .. وأسلـوبي يعتمد عليـك
أنت وتصرفاتك
ولحظاتي صمت... وصمـت لحظاتي كلام ... كلامه
اشد آلام ... فصمتي أنا عنوان
السلام عليكم بشمهندس متشكر جدا علي ردك علية ولكن لية استفسار اخر
ما فائدة هذا الكود
Rep.ParameterFields(1).AddCurrentValue IIf(strInput = "", "الفريق العربي للبرمجيات", strInput)
ولو انا عايز ابعت قيمة من الكمبو بوكس اعملها ازاي ياريت حضرتك تعملي مثال عليها
بســم الله الـرحمــن الرحيــم
لا خير في كاتم العلم ...زكاه العلم ...التعليم صدقة جارية
أولا أخي الكود التالي :
Rep.ParameterFields(1).AddCurrentValue
هو المسئول عن إرسال قيمة للباراميتر الموجود داخل الكريستال ، حيث يجب إدخال رقم الباراميتر حسب الترتيب ، ويبدأ من 1 . أما عن بقية السطر فهو مجرد تنسيق للمدخل ، بمعني أنا قمت بإضافة شرط IIF في حالة إدخالك لقيمة نصية أكتب القيمة النصية الذي قام بإدخالها المستخدم ، أما في حالة عدم إدخال قيمة نصية أرسل له قيمة ( الفريق العربي للبرمجيات ) .
ثانياَ ، فكرة أنك ترسل قيمة من الـ Combo بنفس الطريقة تقريباً ، أنظر الكود التالي :
Rep.ParameterFields(1).AddCurrentValue Combo1.Text Rep.ParameterFields(1).AddCurrentValue Combo1.List(Combo1.ListIndex) Rep.ParameterFields(1).AddCurrentValue Combo1.DataItem(Combo1.ListIndex)
ولكن أنتبه ، ففي حالة إرسال قيمة AddCurrentValue وترغب في إرسال قيمة جديدة يجب مسح القيمة القديمة كما يلي :
Rep.ParameterFields(1).ClearCurrentValueAndRange
شكراً
لا تخلط ما بين شخصيتي وأسلوبي .. فشخصيتي هي
ما أنا عليه وتحت تصرفي .. وأسلـوبي يعتمد عليـك
أنت وتصرفاتك
ولحظاتي صمت... وصمـت لحظاتي كلام ... كلامه
اشد آلام ... فصمتي أنا عنوان
الف الف مليون شكر
وجزاك الله عنا خير الجزاء
ايه العبقرية دي
ده انا دوخت علشان احل المشكلة دي
ربنا يجعله في ميزان حسناتك