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

نسخة كاملة : ,اضافة تكست للريبورت
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
السلام عليكم ورحمه الله وبركاته

اخواني كيف ممكن  اعمل مثل الصورة

حاولت  اعملprameter fields
rep.SetParameterValue(0, DateTimePicker1.Value)
عرض لى التاريخ كامل

[attachment=13943]

لواخترنا  من  الكومبو بوكس طريقة البحث يعرض لى بالريبورت  ( رقم واحد ) مثلا انا  بحثت  حسب الجنس  يعرض لى داخل النص (1) حسب الجنس  
او اخترت  الومبوكس حسب الفئة العمرية يعرض  لى  حسب الفئة العمرية بالمربع (1) وهكذا  الشي الى بختاره من الكومبوبوكس بنعرض بالمربع (1)


كذلك الشهر العربي  (كانو ثاني  شباط اذار نيسان ..... ) بالمربع  (2)
كذلك  العام  بالمربع (3)

مع الشكر
uuuuuuuuuuuup
نو كومنت ؟؟؟؟
هذا الكود لعرض اسم الشهر العربي (كانو ثاني شباط اذار نيسان ..... ) ورقم السنة،
وبالنسبة للتقرير نعم كما فعلت بعمل 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, 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]

جاري التجربة
بالنسبة لتحديد البحث (حسب) يمكن تجربة هذا الكود على افتراض أن اسم الباراميتر في التقرير هو 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 ليسهل فهم الكود.
(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 ليسهل فهم الكود.


[attachment=13980]