تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
تلوين صف بالتقرير
#1
السلام عليكم كيف يمكنني تلوين الصفوف الفردية بلون أخضر مثلا والصفوف الزوجية بلون أخر بتقرير الأكتيف ريبورت ولكم مني جزيل الشكر
الرد }}}}
تم الشكر بواسطة:
#2
السلام عليكم

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

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


الملفات المرفقة
.rar   تلوين الصفوف ال&#1.rar (الحجم : 1.33 ك ب / التحميلات : 94)
سبحانك لا علم لنا إلا ما علمتنا إنك أنت العليم الحكيم
الرد }}}}
تم الشكر بواسطة:
#3
أخي الكريم جزاك الله خيرا علي تعبك معي ولكني أريد تلوين الصفوف بتقرير الأكتيف ريبورت وليس فليكس جريد
الرد }}}}
تم الشكر بواسطة:
#4
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]
الرد }}}}
تم الشكر بواسطة:
#5
جرب هذا المثال


الملفات المرفقة
.rar   P.rar (الحجم : 39.65 ك ب / التحميلات : 55)
[صورة مرفقة: images?q=tbn:ANd9GcT72OLJW7D1E5QW-HUeWeJ...TGoNeg2jnQ]
الرد }}}}
تم الشكر بواسطة:


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


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