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

حل مشكلة الارقام العربي بوضع كود في الحقل المراد تحويله في format editor-->Display string ويتم كتابة هذا الكود
// number field
Replace(
Replace(
Replace(
Replace(
Replace(
Replace(
Replace(
Replace(
Replace(
Replace(
totext(CurrentFieldValue,0)
,'0' , ChrW (1632)
),'1' , ChrW (1633)
),'2' , ChrW (1634)
),'3' , ChrW (1635)
),'4' , ChrW (1636)
),'5' , ChrW (1637)
),'6' , ChrW (1638)
),'7' , ChrW (1639)
),'8' , ChrW (1640)
),'9' , ChrW (1641)
)

// string field
Replace(
Replace(
Replace(
Replace(
Replace(
Replace(
Replace(
Replace(
Replace(
Replace(
CurrentFieldValue
,'0' , ChrW (1632)
),'1' , ChrW (1633)
),'2' , ChrW (1634)
),'3' , ChrW (1635)
),'4' , ChrW (1636)
),'5' , ChrW (1637)
),'6' , ChrW (1638)
),'7' , ChrW (1639)
),'8' , ChrW (1640)
),'9' , ChrW (1641)
)or
//string
Local StringVar str :=CurrentFieldValue;
Local numberVar i:=0;
for i:=0 to 9 do
str:=Replace(str,totext(i,0) , ChrW (i+1632));
str

//number
Local StringVar str :=totext(CurrentFieldValue,0);
Local numberVar i:=0;
for i:=0 to 9 do
str:=Replace(str,totext(i,0) , ChrW (i+1632));
strارقام عربي ولا يتم تغير نوع الحقل