+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغات البرمجة الاخرى (http://vb4arb.com/vb/forumdisplay.php?fid=4)
+--- قسم : قسم لغة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=18)
+---- قسم : قسم أسئلة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=28)
+---- الموضوع : [سؤال] كيف اعمل التقرير في هذه الحالة (/showthread.php?tid=13660)
كيف اعمل التقرير في هذه الحالة - abdalalim - 30-10-15
لدي قاعدة بيانات sql server 2005 وشاشة مصممة بلغةvb6.0 بها كومبوبوكس خاص ب ( الجنس ) .
انا عايز لم يتم اختار القيمة "ذكر" على سبيل المثال ، تخزن في قاعدة البيانات بالقيمة "m" بدلاً من القيمة "ذكر" .
لانه اذا تم تخزين القيمة "ذكر" كما هي ستظهر مشكلة التقرير التي أعاني منها الآن ، وهي ان الخانة الخاصة بالشرط (Cirteria) لاتدعم اللغة العربية.
RE: كيف اعمل التقرير في هذه الحالة - Ahmed_Mansoor - 30-10-15
أهلا أخي الكريم , عرف متغير نصي لحمل القيمة إما m أو f , وأعمل شرط يتحقق من قيمة الكومبو قبل عملية الحفظ , وبالنسبة للتقرير أضف حقلين للجنس واحد تحفظ فيه نوع الجنس بالعربي بشكل عادي والآخر تحفظ فيه القيمة m أو f , وأدرج أيضا الحقلين الخاصه بنوع الجنس في التقرير ولكن إجعل الحقل الثاني الذي يحمل قيمة إما m أو f إجعله في التقرير مخفي وهو الذي سيطبق عليه الشروط في الـ Cirteria ,
كود :
Dim zGender as String
If Trim$(Combo1.Text) = "ذكر" Then
zGender ="m"
Else
zGender ="f"
End IF
RS![Gender1] = Trim$(Combo1.Text)
RS![Gender2] = zGender
RS.UpdateRE: كيف اعمل التقرير في هذه الحالة - abdalalim - 31-10-15
جزاك الله خيرا على هذه المساعدة القيمة يا اخي احمد وجعلها في ميزان حسناتك.
مشكوووور