15-01-20, 01:34 AM
[attachment=23842][attachment=23843][attachment=23844][attachment=23845]
السـلام عليكم روحمة الله وبركاته
عندي قاعدة بيانات تحتوي على جدول بيانات يوجد حقل في هذا الجدول من نوع nvarchar بيانات هذا الحقل نصيه ورقمية هذا الحقل أستخدمة في التقرير المصمم على الكرستال ريبورت
ولكن عند محاولة أظهار الأرقام بشكل عربي يعطيني خطأ
جربت أن أعيد أعدات لغة الأرقام في الكمبيوتر من أنقليزي إلى عربي ولكن ما فيه فائدة
الصوره الأخيره يعطيني رساله خطأ ماهو راضي يعرض التقرير مع الكود الموجود
أتمنى اللي عنده حل لهذه المشكله لا يبخل علينا لأنها معطلتني والله العظيم لي فتره حاولت أحلها ما وصلت لنتيجة والله يحفظكم ..
تم حل المشكله الظاهر فيه واحد منكم دعاء لي شششششكراً بحجم السمـاء
تم حل المشكله الظاهر فيه واحد منكم دعاء لي شششششكراً بحجم السمـاء
هذا هو الحل والله ولي التوفيق الصفر يطلع ChrW(1632
لغات البرمجه هاذي بتلحس عقولنا هههه
السـلام عليكم روحمة الله وبركاته
عندي قاعدة بيانات تحتوي على جدول بيانات يوجد حقل في هذا الجدول من نوع nvarchar بيانات هذا الحقل نصيه ورقمية هذا الحقل أستخدمة في التقرير المصمم على الكرستال ريبورت
ولكن عند محاولة أظهار الأرقام بشكل عربي يعطيني خطأ
جربت أن أعيد أعدات لغة الأرقام في الكمبيوتر من أنقليزي إلى عربي ولكن ما فيه فائدة
الصوره الأخيره يعطيني رساله خطأ ماهو راضي يعرض التقرير مع الكود الموجود
أتمنى اللي عنده حل لهذه المشكله لا يبخل علينا لأنها معطلتني والله العظيم لي فتره حاولت أحلها ما وصلت لنتيجة والله يحفظكم ..
تم حل المشكله الظاهر فيه واحد منكم دعاء لي شششششكراً بحجم السمـاء
تم حل المشكله الظاهر فيه واحد منكم دعاء لي شششششكراً بحجم السمـاء
كود :
Dim s As String
s = ToText({TBL_SHBING.Prise})
s = Replace(s,"0",ChrW(1632))
s = Replace(s,"1",ChrW(1633))
s = Replace(s,"2",ChrW(1634))
s = Replace(s,"3",ChrW(1635))
s = Replace(s,"4",ChrW(1636))
s = Replace(s,"5",ChrW(1637))
s = Replace(s,"6",ChrW(1638))
s = Replace(s,"7",ChrW(1639))
s = Replace(s,"8",ChrW(1640))
s = Replace(s,"9",ChrW(1641))
formula = sهذا هو الحل والله ولي التوفيق الصفر يطلع ChrW(1632
لغات البرمجه هاذي بتلحس عقولنا هههه