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]