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

السلام عليكم

سؤال : كيف أدخل فاصلة الألوف على تيكس بوكس داخل التقرير

على نمط

text1.text=format(text1.text,(#,##0.00))

قد اكون اخطأت بالكود لكن للتوضيح فقط

حيث ان التيكست موجود بالتقرير وشكرا

السلام عليكم

- في البداية ماهو نوع التقرير الذي تستخدمه ، داتا ريبورت أو أكتف ريبورت أم ماذا؟

شكرا اخي الكريم

التقرير هو DataReport العادي المرفق مع vb6
والتيكست هو

FatoraT.Sections("section1").Controls("text1")

السلام عليكم

- أخي بالنسبة للتكست في الداتا ريبورت لايدعم إسناد النص له مباشرة حيث أنه يأخذ المحتوى من الحقل المسند له . بينما يمكن ذلك في أداة الليبل , بهذا الشكل :


- ولكن بما أنك تريد تغيير التنسيق للتكست لكي تظهر الأرقام بفواصل الألوف فيمكنك ذلك بتغيير خاصية DataFormat للتكست إختر التنسيق Custom ثم في خانة Format String ضع هذا ثم إضغط "موافق" أو "ok" .

- تحياتي .

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

وصلت الفكرة لكن كل ماسبق وذكرته هل يمكن إجراءه بالكود ام حصرا يجب فعله أثناء البرمجة

فانا أحيانا أريد اظهار فاصلة الألوف وأحيانا لا

شكرا

شكرا لكم
هذا الحل

Dim fmt As StdDataFormat
Set fmt = New StdDataFormat
fmt.Type = fmtCustom
fmt.Format = "#,##0.00"
Set FatoraT.Sections("section1").Controls("text1").DataFormat = fmt
Set FatoraT.Sections("section1").Controls("text3").DataFormat = fmt
Set FatoraT.Sections("section1").Controls("text4").DataFormat = fmt