[عمور2016]

اريد تعديل على الكود وهو عند الضغط على الدات قريد فيو اي عمل تشيك علامة صح يجمع كم سلكت كم صح وعند الغاء علامة الصح وحدة او اثنتين يقوم بتنقيص العدد المؤشر عليه

PHP كود :

     For i = 0 To DataGridView1.Rows.Count - 1
            If DataGridView1.Rows(i).Cells(0).Value = True Then
             Label8.Text = i  
end if 


[اسامه الهرماوي]

السلام عليكم...
تفضل:

كود :

Dim a As Integer = 0

       For i As Integer = 1 To DataGridView1.Rows.Count - 1
           If DataGridView1.Rows(i).Cells(0).Value = vbTrue Then
               a += 1
           End If
       Next
       Label1.Text = a + 1

[عمور2016]

شكرا جزيلا اخي اسامه

هل لوتكرمت تغير الكود عند الغاء المؤشر ينقص في عدد المؤاشرين وايضا اين اضع الحدث في الكليك او التشينج تحياتي

[اسامه الهرماوي]

ممكن تحط الكود في Timer وتشغله في load الفورم, أي تغير هيظهر فوراً.

[asemshahen5]

PHP كود :

       Txt_InvCount.Text = dgvItems.Rows.Cast(Of DataGridViewRow).Where(Function(row) CStr(row.Cells(0).Value) = True).Select(Function(row) CDbl(Val(row.Cells(0).Value))).Count() 


---

PHP كود :

   Private Sub dgvItems_CellValueChanged(sender As Object, e As DataGridViewCellEventArgs) Handles dgvItems.CellValueChanged
        Txt_InvCount.Text = dgvItems.Rows.Cast(Of DataGridViewRow).Where(Function(row) CStr(row.Cells(0).Value) = True).Select(Function(row) CDbl(Val(row.Cells(0).Value))).Count()
    End Sub 


[lafi]

(30-10-20, 12:12 AM)asemshahen5 كتب :

PHP كود :

       Txt_InvCount.Text = dgvItems.Rows.Cast(Of DataGridViewRow).Where(Function(row) CStr(row.Cells(0).Value) = True).Select(Function(row) CDbl(Val(row.Cells(0).Value))).Count() 


---

PHP كود :

   Private Sub dgvItems_CellValueChanged(sender As Object, e As DataGridViewCellEventArgs) Handles dgvItems.CellValueChanged
        Txt_InvCount.Text = dgvItems.Rows.Cast(Of DataGridViewRow).Where(Function(row) CStr(row.Cells(0).Value) = True).Select(Function(row) CDbl(Val(row.Cells(0).Value))).Count()
    End Sub 


ممكن تختصر كود Count
مع استخدام دالة التحويل CBool

كود :

Txt_InvCount.Text = dgvItems.Rows.Cast(Of DataGridViewRow).Count(Function(row) CBool(row.Cells(0).Value))

أو بدون استخدام دالة التحويل

كود :

Txt_InvCount.Text = dgvItems.Rows.Cast(Of DataGridViewRow).Count(Function(row) row.Cells(0).Value)