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

السلام عليكم
ارجو من حضراتكم مساعدتي في الداتا جريد فيو

عندي داتا جريد فيو وتحتوي علي حقلين بكل منهما تشيك بوكس
واريد عند الضغد علي زر معين يحسب لي عدد كل التشيك بوكس المحدد عليه علامة صح في الحقل الاول ويضع الناتج في ليبل
وكذلك في نفس الوقت يحسب لي عدد كل التشيك بوكس المحدد في الحقل الثاني ويضعه في ليبل اخر
وهذه صور من البرنامج للتوضيح
[attachment=17493]

PHP كود :

Private Sub dgv1_CellContentDoubleClick(sender As Object, e As DataGridViewCellEventArgs) Handles dgv1.CellContentDoubleClick
        'n1  رقم اندكس العمود الذي اخترته ليعمل كذرار لتنفيد كودك
        'n2  رقم العمود الذي به تشك بوكس
        'c1 متغير ليحسب لك عدد التشك بوكس التي اشرت عليها في العمود 
        'dgv1 اسم الداتا جريد لديك
        Dim n1 As Integer = 5
        Dim n2 As Integer = 3
        If e.ColumnIndex = n1 Then
            For i = 0 To dgv1.RowCount - 1
                Dim c1 As Integer = 0

                If CType(dgv1.Rows(i).Cells(n2).Value, CheckBox).Checked Then
                    c1 += 1
                End If
            Next
        End If
        TextBox1.text = c1.ToString
    End Sub 

جزاك الله خير الجزاء اخي .
سانفذ الكود باذن الله

جزاك الله خيرا يا اخي [b]ssayed111[/b]
ولكن لماذا الرقم 3 والرقم 5 اللي في الكود

كود :

Dim n1 As Integer = 5

        Dim n2 As Integer = 3

ثم اريد انه عندما يحمل الفورم تظهر لي النتيجه مباشرة بدون الضغط علي الداتا جريد فيو

ارجو من حضراتكم مساعدتي في الداتا جريد فيو
فقد تفضل البعض بالاجابه ولكن الاجابه لمتكن صحيحهبالنسبه لي

عندي داتا جريد فيو وفيها حقول فيها تشيك بوكس
واريد عند تحميل الفورم يحسب لي عدد كل التشيك بوكس المحدد عليه علامة صح في ويضع الناتج في ليبل

'n1 رقم اندكس العمود الذي اخترته ليعمل كذرار لتنفيد كودك (على سبيل المثال اعطيطه الرقم 5 ويمكنك استبداله برقم الاندكس لديك)
'n2 رقم العمود الذي به تشك بوكس (على سبيل المثال اعطيطه الرقم 3 ويمكنك استبداله برقم الاندكس لديك)

اذا انته محتاج تضعه في زرار خارج الداتاجريد حنعتبر ان التكست

'n2 رقم العمود الذي به تشك بوكس
'c1 متغير ليحسب لك عدد التشك بوكس التي اشرت عليها في العمود
'dgv1 اسم الداتا جريد لديك

Dim n2 As Integer = 3
If e.ColumnIndex = n1 Then
For i = 0 To dgv1.RowCount - 1
Dim c1 As Integer = 0
If CType(dgv1.Rows(i).Cells(n2).Value, CheckBox).Checked Then
c1 += 1
End If
Next

TextBox1.text = c1.ToString

1

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

emamtron2014

ssayed111

emamtron2014

emamtron2014

emamtron2014

ssayed111