أولا أخي الكود التالي :
كود
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
شكراً