Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
For Each r As DataGridViewRow In Dgv.Rows
'r.Cells(0).Value = عامود الباركود'
If r.Cells(0).Value = TextBox1.Text Then
'r.Cells(2).Value = عامود الكمية'
r.Cells(2).Value += 1
End If
Next
End Sub
Dim sqlstr As String = "Select Barcode,Sum(Qtn)as Qtn,QtnName From QtnTbl Group by Barcode,QtnName "
Dim dAdpt As New SqlClient.SqlDataAdapter(sqlstr, con)
Dim dt As New DataTable
dAdpt.Fill(dt)
Dgv.DataSource = dt