[has123]

الجدول Tableposdetails
لازم تغير نوع uniteprice الى رقم مزدوج Double
ولازم تغير نوع SubTotal الى رقم مزدوج Double

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