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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [كود] كيف اعمل شرط على text box علشان يدخل ارقام فقط noor alhuda 2 262 03-05-17, 01:59 AM
آخر رد: قتيبه عباد
  [سؤال] طلب كود -فتح ملف مساره موجود في text1.text awidan76 6 116 26-03-17, 08:39 AM
آخر رد: awidan76
  سؤال حول اظهار النمادج او الفريم في شجرة التفرع عمور2016 2 241 19-02-17, 03:44 AM
آخر رد: sendbad100
  سؤال في الكتابة على التكست عمور2016 3 149 18-02-17, 12:21 PM
آخر رد: عمور2016
  سؤال هام فى الفيجوال بيسك فيجوال 6 الحلوانى 3 224 17-01-17, 04:14 PM
آخر رد: Ashraf Elafify
Wink [vb6.0] سؤال في الفيجوال بيسك6 amer2000 7 322 23-12-16, 03:27 AM
آخر رد: amer2000
  سؤال حول Listview superwoofer 0 142 18-12-16, 10:15 AM
آخر رد: superwoofer
  [ تم الحل ] : البحث بأوّل حرف داخل الفليكس جريد عبد العزيز البسكري 5 319 30-11-16, 01:54 AM
آخر رد: عبد العزيز البسكري
Smile سؤال بخصوص تقسيم ساعات اليوم ارجوا المشاركه استايل 10 545 03-11-16, 11:54 PM
آخر رد: الاصيله
  [سؤال] سوال؟ عن طباعة الورقة عرض(التقرير) amer2000 21 942 15-09-16, 10:00 PM
آخر رد: Amir_alzubidy

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


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