منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

السلام عليكم كيف يمكنني تلوين الصفوف الفردية بلون أخضر مثلا والصفوف الزوجية بلون أخر بتقرير الأكتيف ريبورت ولكم مني جزيل الشكر

السلام عليكم

أخي أفدم لك المثال المرفق

أنصحك بأن يكون عندك أرشيف في المنزل بحيث تنسخ كل ما تطلبه من أمثلة على cd أو dvd عندك
وتعود إليه عند الحاجة لأن المدة تطول ولا تبقى بعض الأشياء على النت و تجد صعوبة في إيجادها.

أخي الكريم جزاك الله خيرا علي تعبك معي ولكني أريد تلوين الصفوف بتقرير الأكتيف ريبورت وليس فليكس جريد

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]