+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : ,اضافة تكست للريبورت (/showthread.php?tid=20085)
,اضافة تكست للريبورت - alma_fandi - 20-04-17
السلام عليكم ورحمه الله وبركاته
اخواني كيف ممكن اعمل مثل الصورة
حاولت اعملprameter fields
rep.SetParameterValue(0, DateTimePicker1.Value)
عرض لى التاريخ كامل
[attachment=13943]
لواخترنا من الكومبو بوكس طريقة البحث يعرض لى بالريبورت ( رقم واحد ) مثلا انا بحثت حسب الجنس يعرض لى داخل النص (1) حسب الجنس
او اخترت الومبوكس حسب الفئة العمرية يعرض لى حسب الفئة العمرية بالمربع (1) وهكذا الشي الى بختاره من الكومبوبوكس بنعرض بالمربع (1)
كذلك الشهر العربي (كانو ثاني شباط اذار نيسان ..... ) بالمربع (2)
كذلك العام بالمربع (3)
مع الشكر
اخواني كيف ممكن اعمل مثل الصورة
حاولت اعملprameter fields
rep.SetParameterValue(0, DateTimePicker1.Value)
عرض لى التاريخ كامل
[attachment=13943]
لواخترنا من الكومبو بوكس طريقة البحث يعرض لى بالريبورت ( رقم واحد ) مثلا انا بحثت حسب الجنس يعرض لى داخل النص (1) حسب الجنس
او اخترت الومبوكس حسب الفئة العمرية يعرض لى حسب الفئة العمرية بالمربع (1) وهكذا الشي الى بختاره من الكومبوبوكس بنعرض بالمربع (1)
كذلك الشهر العربي (كانو ثاني شباط اذار نيسان ..... ) بالمربع (2)
كذلك العام بالمربع (3)
مع الشكر
RE: ,اضافة تكست للريبورت - alma_fandi - 21-04-17
uuuuuuuuuuuup
RE: ,اضافة تكست للريبورت - alma_fandi - 22-04-17
نو كومنت ؟؟؟؟
RE: ,اضافة تكست للريبورت - عبـدالله - 22-04-17
هذا الكود لعرض اسم الشهر العربي (كانو ثاني شباط اذار نيسان ..... ) ورقم السنة،
وبالنسبة للتقرير نعم كما فعلت بعمل 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"))
RE: ,اضافة تكست للريبورت - alma_fandi - 22-04-17
(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"))
[attachment=13979]
جاري التجربة
RE: ,اضافة تكست للريبورت - عبـدالله - 22-04-17
بالنسبة لتحديد البحث (حسب) يمكن تجربة هذا الكود على افتراض أن اسم الباراميتر في التقرير هو 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
RE: ,اضافة تكست للريبورت - alma_fandi - 22-04-17
(22-04-17, 05:07 PM)عبـدالله كتب : بالنسبة لتحديد البحث (حسب) يمكن تجربة هذا الكود على افتراض أن اسم الباراميتر في التقرير هو search
ويمكنك تحديد أكثر من اختيار للبحث مثل "العمر ومكان العقر"
وفي حالة عدم اختيار أي كمبوبكس يضع "(غير محدد)"
ويستحسن استخدام اسم الباراميتر name وليس index ليسهل فهم الكود.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
[attachment=13980]