تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
سؤال : كيف أدخل فاصلة الألوف على text داخل التقرير
#1
السلام عليكم

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

على نمط

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

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

حيث ان التيكست موجود بالتقرير وشكرا
الرد }}}
تم الشكر بواسطة:
#2
السلام عليكم

- في البداية ماهو نوع التقرير الذي تستخدمه ، داتا ريبورت أو أكتف ريبورت أم ماذا؟
الرد }}}
تم الشكر بواسطة:
#3
شكرا اخي الكريم

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

FatoraT.Sections("section1").Controls("text1")
الرد }}}
تم الشكر بواسطة:
#4
السلام عليكم

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

كود :
DataReport1.Sections("Section1").Controls("Label1").Caption = "mh66"

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

- تحياتي .
الرد }}}
تم الشكر بواسطة:
#5
شكرا أخي الكريم

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

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

شكرا
الرد }}}
تم الشكر بواسطة:
#6
شكرا لكم
هذا الحل

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
الرد }}}
تم الشكر بواسطة:



التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم