منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب - مشكلة اللغة العربية في طباعة الارقام بالكريستال ريبورت

سلام عليكم
هل من حل لطباعة الارقام بالعربي في الكريستال ريبورت

الصفحة تتحدث عن التفقيط محتاج احول الرقم الانجليزي الى عربي مباشر وليس تفقيط اخي شكرا لك

الحمدالله تم حل المشكلة بعمل فاكنشن

PHP كود :

stringVar StrArb := ToText({T_RKSH.T56},"0");
StrArb := Replace (StrArb ,"0" , "٠" );
StrArb := Replace (StrArb ,"1" ,"١" );
StrArb := Replace (StrArb ,"2" ,"٢" );
StrArb := Replace (StrArb ,"3" ,"٣" );
StrArb := Replace (StrArb ,"4" ,"٤" );
StrArb := Replace (StrArb ,"5" ,"٥" );
StrArb := Replace (StrArb ,"6" ,"٦" );
StrArb := Replace (StrArb ,"7" ,"٧" );
StrArb := Replace (StrArb ,"8" ,"٨" );
StrArb := Replace (StrArb ,"9" ,"٩" ); 

[attachment=10520]

[attachment=10521]

[attachment=10522]

كم يمتلك هذا المنتدى من عمالقه في بحثي بقوقل لم اجد حلول إلا هنا

وهذا حل بتغيير الخط من الاخ العزابي
http://vb4arb.com/vb/thread-1261.html

شكرا لك اخي amgad525 كم انا فخور بمثلك !!

إذا كان الكائن نصي غير مرتبط به حقل معين فلا ينفع معه إلا تغيير الخط

يبدو أن الخيارات تختلف لدي ولديك !!

(20-05-16, 11:08 PM)أبو فلان كتب : [ -> ]إذا كان الكائن نصي غير مرتبط به حقل معين فلا ينفع معه إلا تغيير الخط

[attachment=10524]

[attachment=10525]

[attachment=10526]

[attachment=10527]

PHP كود :

Dim s As String
s = ToText({?para})

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 

جميل ما شاء الله
ولاكن لماذا يطلب قيمة عن استعراض التقرير شاهد المرفق

وهل يقبل الرموز مثلا / - * & % إذا كانت بينها ارقام

عملت لها فورملا ومشى الحال البارميتر احيانا ما تمشي مع الرموز

شكرا amgad525

):