منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

(22-04-17, 04:10 PM)عبـدالله كتب : [ -> ]هذا الكود لعرض اسم  الشهر العربي  (كانو ثاني  شباط اذار نيسان ..... ) ورقم السنة،
وبالنسبة للتقرير نعم كما فعلت بعمل Paramater واسناد البيانات اليها

PHP كود :

Dim y As String = DateTimePicker1.Value.ToString("yyyy", New Globalization.CultureInfo("ar-jo"))
Dim m As String = DateTimePicker1.Value.ToString("MMM", New Globalization.CultureInfo("ar-jo")) 


(22-04-17, 05:07 PM)عبـدالله كتب : [ -> ]بالنسبة لتحديد البحث (حسب) يمكن تجربة هذا الكود على افتراض أن اسم الباراميتر في التقرير هو search
ويمكنك تحديد أكثر من اختيار للبحث مثل "العمر ومكان العقر"
وفي حالة عدم اختيار أي كمبوبكس يضع "(غير محدد)"

PHP كود :

Dim s As New List(Of String)
If Me.cboSex.SelectedIndex > 0 Then s.Add("الجنس")
If Me.cboAge.SelectedIndex > 0 Then s.Add("العمر")
If Me.cboType.SelectedIndex > 0 Then s.Add("نوع الحيوان")
If Me.cboPlace.SelectedIndex > 0 Then s.Add("مكان العقر")
If Me.cboState.SelectedIndex > 0 Then s.Add("حالة الحيون")
If s.Count > 0 Then
    rep.SetParameterValue("search", String.Join(" و", s))
Else
    rep.SetParameterValue("search", "(غير محدد)")
End If 


ويستحسن استخدام اسم الباراميتر name وليس index ليسهل فهم الكود.