كيف اظهر الارقام داخل الكريستال ريبورت بالعربية

أهلا اخي الكريم

أنا عانيت نفس ما انت عانيت ولمدة طويلة وحطيت موضوع بمنتدى ميكروسوفت

ولكن بعد جهد لقيت الحل وحطيته بهذا الرابط

http://forums.msdn.microsoft.com/en-US/vsc...5-c1d355b65693/

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

"0", (٠)

"1", (١)

"2", (٢)

"3", (٣)

"4", (٤)

"5", (٥)

"6", (٦)

"7", (٧)

"8", (٨)

"9", (٩)

وبعدها نعدل البيانات في التكيست بوكس

ArNumTextBox.Text = ArNumTextBox.Text.Replace("0", ChrW(1632))

وهكذا

طبعا التعديل يكون قبل كود التصدير لل بي دي اف

لكن الأفضل انه نبني فنكشن كاملة بالحل والفنكشن اللي بنيتها اهي

Private Sub ChangeToArabicNumber()

'Eng.Ahmed Rashid Al-Farhan

Dim ArNumTextBox As TextBox

For Each ctlMaster As Control In Page.Controls

If TypeOf ctlMaster Is MasterPage Then

For Each ctlForm As Control In ctlMaster.Controls

If TypeOf ctlForm Is HtmlForm Then

For Each ctlContent As Control In ctlForm.Controls

If TypeOf ctlContent Is ContentPlaceHolder Then

For Each ctlChild As Control In ctlContent.Controls

If TypeOf (ctlChild) Is TextBox Then

ArNumTextBox = ctlChild

' Case "0"

ArNumTextBox.Text = ArNumTextBox.Text.Replace("0", ChrW(1632))

' Case "1"

ArNumTextBox.Text = ArNumTextBox.Text.Replace("1", ChrW(1633))

' Case "2"

ArNumTextBox.Text = ArNumTextBox.Text.Replace("2", ChrW(1634))

' Case "3"

ArNumTextBox.Text = ArNumTextBox.Text.Replace("3", ChrW(1635))

' Case "4"

ArNumTextBox.Text = ArNumTextBox.Text.Replace("4", ChrW(1636))

' Case "5"

ArNumTextBox.Text = ArNumTextBox.Text.Replace("5", ChrW(1637))

' Case "6"

ArNumTextBox.Text = ArNumTextBox.Text.Replace("6", ChrW(1638))

' Case "7"

ArNumTextBox.Text = ArNumTextBox.Text.Replace("7", ChrW(1639))

' Case "8"

ArNumTextBox.Text = ArNumTextBox.Text.Replace("8", ChrW(1640))

' Case "9"

ArNumTextBox.Text = ArNumTextBox.Text.Replace("9", ChrW(1641))

End If

Next

End If

Next

End If

Next

End If

Next

End Sub

والحين راح تشوف التقرير بالعربي ومن غير لا تروح للكنترول بانيل او تغير الإصدار الخاص للكريستال ريبورت مثل ما الكثيرين بالإنترنت يحطون الحل هذا

ويليت أكون خدمتك ولو بعد وقت طويل

الأخ أحمد ،،، شكرا لك على هذه الدالة

ولكن كيف أستخدم هذه الدالة ؟

وأين أضعها؟ هل أضعها داخل التقرير أم في مكان آخر؟

أرجو التوضيح وفقك الله وسددك