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

نسخة كاملة : كود عدد الحقول في الداتا
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
السلام عليكم...
الكود كالأتي وهو يقوم بعد مافي الداتا تمام ولكن اريد كود لعد الحقول الملونة بالون الاصفر فقط.
كود :
   text1.Text = datagridview1.Rows.Count
اعمل counter في ال foor loop التي تقوم بتلوين الحقول 
وستحل مشكلتك
ممكن توضيح اكثر اخي.
السلام عليكم اخي اسامة
قم باضافة Label ليعرض لك العدد 
ثم قم بإنشاء هذا الصب
 
كود :
Sub CountCellRed()
       Dim gg As Integer = 0
       For i As Integer = 0 To datagridview1.Rows.Count - 1
           If datagridview1.Rows(i).Cells("اسم العمود الملون او رقمه").Style.BackColor = Color.Red Then
               gg += 1
           Else
           End If
       Next
       Label1.Text = gg
   End Sub
واستدعه في حدث Form1_Load او حدث اعادة تعبئة البيانات او تحديث البيانات

كود :
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
       CountCellRed()
   End Sub
انتبه الى اللون انا وضعته لون احمر انت لديك برتقالي غير كلمة Red الى اللون الذي عندك .. دمت بخير
ليس هنالك داعي لعمل for loop اخرى وابطاء البرنامج ، بالفعل يوجد  for loop التي تقوم بتلوين الحقول 
استخدم في داخلها counter.
ارفق كود التلوين و ساساعدك فية.
شكر الكود افاد وزيادة.
السلام عليكم ورحمة الله وبركاته
نعم أخي الحبيب Rabeea لاحاجة لانشاء Loop أخر يمكن استخدام نفس اللوب في حساب عدد السجلات الملونة باضافة عداد 
وكلامك في محله اكواد اللوب تبطئ البرنامج ... تسلم ياغالي
دمت بخير .. اخا ناصحا عزيزا ... رمضان كريم