مكشلة الأ{قام في الكرستال ريبورت

مكشلة الأ{قام في الكرستال ريبورت - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (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=32989)

مكشلة الأ{قام في الكرستال ريبورت - DOX.1 - 15-01-20

[attachment=23842][attachment=23843][attachment=23844][attachment=23845]

السـلام عليكم روحمة الله وبركاته
عندي قاعدة بيانات تحتوي على جدول بيانات يوجد حقل في هذا الجدول من نوع 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
لغات البرمجه هاذي بتلحس عقولنا هههه