13-11-16, 09:50 PM
ليس جديداً هذا الموضوع و قد يبدو مكررا , لكن ما دعاني الى كتابته هو حاجة بعض الاخوة له
المشكلة في هذا النوع من التقارير انه لا يستجيب لتغير نظام الارقام في الاعدادات مهما حاولت (ربما يختلف الامر باختلاف نسخ الوندوز .. لا ادري)؟
المهم وجدت نفسي مجبراً على استخدام كود يقوم باستبدال الارقام الاجنبية بارقام عربية (شبيهة نوعا ما بعملية الرسم )
ندخل في المهم
في جسم التقرير سنكتب دالة تقوم بهذه العملية و من ثم نسنتدعيها في المكان الذي نريد فيه استبدال الارقام لتتضح الصورة تابع
من جسم التقرير بيمين الماوس
بعدها سنقوم باضافة الدالة التالية في المكان المخصص
بنية الدالة
بعدها و في الحقل المراد عرض ارقامه بالعربية نحدده و بيمين الماوس
ثم نسنتدعي الدالة مع تمرير قيمة الحقل
الجيد في الامر ان نوع البيانات يبقى كما هو اي رقمي لذا لا تخف من التحويل في حال كان لديك حقل ينفذ عملية جمع في التقرير تعتمد على الحقول التي عالجناها وفق الدالة
المشكلة في هذا النوع من التقارير انه لا يستجيب لتغير نظام الارقام في الاعدادات مهما حاولت (ربما يختلف الامر باختلاف نسخ الوندوز .. لا ادري)؟
المهم وجدت نفسي مجبراً على استخدام كود يقوم باستبدال الارقام الاجنبية بارقام عربية (شبيهة نوعا ما بعملية الرسم )
ندخل في المهم
في جسم التقرير سنكتب دالة تقوم بهذه العملية و من ثم نسنتدعيها في المكان الذي نريد فيه استبدال الارقام لتتضح الصورة تابع
من جسم التقرير بيمين الماوس
بعدها سنقوم باضافة الدالة التالية في المكان المخصص
بنية الدالة
كود :
Public Function ArNumber(ByVal str As String) As String
Dim s As String = ""
Dim ch() As Char = str.ToCharArray
For Each chr As Char In ch
Select Case chr
Case "1"
chr = "١"
s += chr
Case "2"
chr = "٢"
s += chr
Case "3"
chr = "٣"
s += chr
Case "4"
chr = "٤"
s += chr
Case "5"
chr = "٥"
s += chr
Case "6"
chr = "٦"
s += chr
Case "7"
chr = "٧"
s += chr
Case "8"
chr = "٨"
s += chr
Case "9"
chr = "٩"
s += chr
Case "0"
chr = "٠"
s += chr
Case Else
s += chr
End Select
Next
Return s
End Function
بعدها و في الحقل المراد عرض ارقامه بالعربية نحدده و بيمين الماوس
ثم نسنتدعي الدالة مع تمرير قيمة الحقل
الجيد في الامر ان نوع البيانات يبقى كما هو اي رقمي لذا لا تخف من التحويل في حال كان لديك حقل ينفذ عملية جمع في التقرير تعتمد على الحقول التي عالجناها وفق الدالة
اللهم لك الحمد كما ينبغي لجلال وجهك و عظيم سلطانك
في حل و ترحال