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