المشاركات : 63
المواضيع 26
الإنتساب : Jan 2014
السمعة :
3
الشكر: 60
تم شكره 44 مرات في 10 مشاركات
السلام عليكم
سؤال : كيف أدخل فاصلة الألوف على تيكس بوكس داخل التقرير
على نمط
text1.text=format(text1.text,(#,##0.00))
قد اكون اخطأت بالكود لكن للتوضيح فقط
حيث ان التيكست موجود بالتقرير وشكرا
المشاركات : 513
المواضيع 2
الإنتساب : Sep 2013
السمعة :
16
الشكر: 245
تم شكره 445 مرات في 172 مشاركات
السلام عليكم
- في البداية ماهو نوع التقرير الذي تستخدمه ، داتا ريبورت أو أكتف ريبورت أم ماذا؟
المشاركات : 63
المواضيع 26
الإنتساب : Jan 2014
السمعة :
3
الشكر: 60
تم شكره 44 مرات في 10 مشاركات
شكرا اخي الكريم
التقرير هو DataReport العادي المرفق مع vb6
والتيكست هو
FatoraT.Sections("section1").Controls("text1")
المشاركات : 63
المواضيع 26
الإنتساب : Jan 2014
السمعة :
3
الشكر: 60
تم شكره 44 مرات في 10 مشاركات
شكرا أخي الكريم
وصلت الفكرة لكن كل ماسبق وذكرته هل يمكن إجراءه بالكود ام حصرا يجب فعله أثناء البرمجة
فانا أحيانا أريد اظهار فاصلة الألوف وأحيانا لا
شكرا
المشاركات : 63
المواضيع 26
الإنتساب : Jan 2014
السمعة :
3
الشكر: 60
تم شكره 44 مرات في 10 مشاركات
شكرا لكم
هذا الحل
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