[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)