+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم أسئلة واستفسارات الأعضاء - المنتدى القديم (http://vb4arb.com/vb/forumdisplay.php?fid=94)
+--- قسم : قسم Visual Basic 6 وما قبله (http://vb4arb.com/vb/forumdisplay.php?fid=167)
+--- الموضوع : سؤال : كيف أدخل فاصلة الألوف على text داخل التقرير (/showthread.php?tid=8948)
سؤال : كيف أدخل فاصلة الألوف على text داخل التقرير - mh66 - 19-05-13
السلام عليكم
سؤال : كيف أدخل فاصلة الألوف على تيكس بوكس داخل التقرير
على نمط
text1.text=format(text1.text,(#,##0.00))
قد اكون اخطأت بالكود لكن للتوضيح فقط
حيث ان التيكست موجود بالتقرير وشكرا
سؤال : كيف أدخل فاصلة الألوف على text داخل التقرير - VB_Coder - 19-05-13
السلام عليكم
- في البداية ماهو نوع التقرير الذي تستخدمه ، داتا ريبورت أو أكتف ريبورت أم ماذا؟
سؤال : كيف أدخل فاصلة الألوف على text داخل التقرير - mh66 - 19-05-13
شكرا اخي الكريم
التقرير هو DataReport العادي المرفق مع vb6
والتيكست هو
FatoraT.Sections("section1").Controls("text1")
سؤال : كيف أدخل فاصلة الألوف على text داخل التقرير - VB_Coder - 19-05-13
السلام عليكم
- أخي بالنسبة للتكست في الداتا ريبورت لايدعم إسناد النص له مباشرة حيث أنه يأخذ المحتوى من الحقل المسند له . بينما يمكن ذلك في أداة الليبل , بهذا الشكل :
كود :
DataReport1.Sections("Section1").Controls("Label1").Caption = "mh66"- ولكن بما أنك تريد تغيير التنسيق للتكست لكي تظهر الأرقام بفواصل الألوف فيمكنك ذلك بتغيير خاصية DataFormat للتكست إختر التنسيق Custom ثم في خانة Format String ضع هذا
كود :
#,##0.00- تحياتي .
سؤال : كيف أدخل فاصلة الألوف على text داخل التقرير - mh66 - 19-05-13
شكرا أخي الكريم
وصلت الفكرة لكن كل ماسبق وذكرته هل يمكن إجراءه بالكود ام حصرا يجب فعله أثناء البرمجة
فانا أحيانا أريد اظهار فاصلة الألوف وأحيانا لا
شكرا
سؤال : كيف أدخل فاصلة الألوف على text داخل التقرير - mh66 - 20-05-13
شكرا لكم
هذا الحل
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