منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب قسم قواعد البيانات قسم اسئلة vb6.0 المتعلقة بقواعد البيانات قسم اسئلة التقارير والطباعة للغة vb6.0 تلوين صف بالتقرير
تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
ادوات الموضوع
تلوين صف بالتقرير
hsab غير متصل
عضو فعال
*
المشاركات : 42
المواضيع 11
الإنتساب : Jan 2014
السمعة : 0
الشكر: 15
تم شكره 61 مرات في 18 مشاركات
#4
21-06-13, 09:32 PM
Ahmed Abdulla كتب :أخي الكريم جزاك الله خيرا علي تعبك معي ولكني أريد تلوين الصفوف بتقرير الأكتيف ريبورت وليس فليكس جريد

كما يلى:


[HTML]Private Sub Detail_Format()
On Error Resume Next
Static iRow As Integer
iRow = iRow + 1
txtid.Text = Str(iRow)

If Val(iRow Mod 2) = 1 Then
txtid.BackColor = &HFFFFFF
txt1.BackColor = &HFFFFFF
txt2.BackColor = &HFFFFFF
Else
txtid.BackColor = &H80000013
txt1.BackColor = &H80000013
txt2.BackColor = &H80000013
End If

If txt1 = 0 Then txt1 = "-"
If txt2 = 0 Then txt2 = "-"

End Sub[/HTML]
البحث
الرد }}}
تم الشكر بواسطة:


الردود في هذا الموضوع
تلوين صف بالتقرير - بواسطة Ahmed Abdulla - 18-12-12, 12:09 PM
تلوين صف بالتقرير - بواسطة abdouhai - 18-12-12, 04:51 PM
تلوين صف بالتقرير - بواسطة Ahmed Abdulla - 19-12-12, 10:01 AM
تلوين صف بالتقرير - بواسطة hsab - 21-06-13, 09:32 PM

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


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