تجميع المنتجات المكررة على الداتاقريد

PHP كود :

       For i = 0 To Dgv.Rows.Count - 1
            If Dgv.Rows(i).Cells(2).Value = cmb_ProdectName.Text Then
                Dgv.Rows(i).Cells(4).Value += 1
                Return
            End If
        Next
        Dgv.Rows.Add(Txt_InvNum.Text, Txt_Codeprodect.Text, cmb_ProdectName.Text, Txt_UnitPrice.Text, Txt_Qtn.Text, Txt_SubTotal.Text)

PHP كود :

   Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Try


            Cn.Open()
            Cmd = New OleDbCommand("Update Tableposdetails Set Qty=Qty+@Qty , SubTotal=SubTotal+@SubTotal Where codeproduct=@codeproduct And InvoiceNo=@InvoiceNo", Cn)
            With Cmd.Parameters
                .AddWithValue("@Qty", Me.TextBox4.Text)
                .AddWithValue("@SubTotal", Me.TextBox8.Text)
                .AddWithValue("@codeproduct", Me.TextBox1.Text)
                .AddWithValue("@InvoiceNo", Me.TextBox5.Text)
            End With
            If Cmd.ExecuteNonQuery() = 0 Then
                Cmd = New OleDbCommand("Insert into Tableposdetails ( InvoiceNo , codeproduct , nameproduct , uniteprice , Qty , SubTotal) Values ( @InvoiceNo , @codeproduct , @nameproduct , @uniteprice , @Qty , @SubTotal)", Cn)
                With Cmd.Parameters
                    .AddWithValue("@InvoiceNo", Me.TextBox5.Text)
                    .AddWithValue("@codeproduct", Me.TextBox1.Text)
                    .AddWithValue("@nameproduct", Me.TextBox2.Text)
                    .AddWithValue("@uniteprice", Me.TextBox3.Text)
                    .AddWithValue("@Qty", Me.TextBox4.Text)
                    .AddWithValue("@SubTotal", Me.TextBox8.Text)
                End With
                Cmd.ExecuteNonQuery()
            End If
            Cn.Close()

            loadrecord()

            Pid = ""

            Call Update_Tablepos()

            Me.TextBox1.Text = String.Empty
            Me.TextBox2.Text = String.Empty
            Me.TextBox3.Text = String.Empty
            Me.TextBox4.Text = String.Empty


        Catch ex As Exception
            Cn.Close()
            MsgBox(ex.Message, vbCritical)
        End Try
    End Sub