无法保存值“更改”

Question

为什么我无法保存更改（标签）的值。它只在数据库中保存0.00。 0.00值来自form_load。 addTransaction（）子，它包含保存/插入transnumber，日期，时间，月，日和年的代码，对于addTransactionLog（）子，它包含保存/插入总计，现金和更改的代码在数据库中。除了改变之外，它正在工作。我该怎么办？谢谢你的帮助。 Godbless !!

Private Sub btnOkay_Click(sender As Object, e As EventArgs) Handles btnOkay.Click
    btnOkay.Text = MessageBox.Show("Are you sure you want to proceed the transaction?", "Confirmation", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
    If btnOkay.Text = DialogResult.Yes Then
        btnOkay.Text = "OKAY"
        For Each dr As DataGridViewRow In frmPOS.ProductsListDGV.Rows
            productCodes = dr.Cells(0).Value.ToString
            itemdesc = dr.Cells(1).Value.ToString
            quantityrow = dr.Cells(2).Value.ToString
            sizerow = dr.Cells(4).Value.ToString
            updateQuantity()
            addStockOutTransaction()
        Next
        addTransaction()
        addTransactionLog()
        btnOkay.Text = "OKAY"
        Me.Close()
        frmPOS.lblTenderedValue.Text = accumulatedpayment.ToString("#,##0.00")
        frmPOS.lblChangeValue.Text = change.ToString("#,##0.00")
        MsgBox("Transaction has been completed.", MsgBoxStyle.Information)
     End If
End Sub

Public Sub addTransactionLog()
        Try
            dbConnection()
            insert_query = "INSERT INTO tbltransaction_logs(employee_number, trans_total, trans_cash, trans_change, trans_number) VALUES(@employee_number, @trans_total, @trans_cash, @trans_change, @trans_number);"
            command = New SqlCommand
            With command
                .Connection = connection
                .CommandText = insert_query
                .Parameters.Clear()
                .Parameters.Add(New SqlParameter With {.ParameterName = "@employee_number", .SqlDbType = SqlDbType.VarChar, .Value = frmPOS.txtEmployeeID.Text})
                .Parameters.Add(New SqlParameter With {.ParameterName = "@trans_total", .SqlDbType = SqlDbType.VarChar, .Value = frmPOS.lblTotalAmountValue.Text})
                .Parameters.Add(New SqlParameter With {.ParameterName = "@trans_cash", .SqlDbType = SqlDbType.VarChar, .Value = frmPayment.txtAccumulated.Text})
                .Parameters.Add(New SqlParameter With {.ParameterName = "@trans_change", .SqlDbType = SqlDbType.VarChar, .Value = frmPOS.lblChangeValue.Text})
                .Parameters.Add(New SqlParameter With {.ParameterName = "@trans_number", .SqlDbType = SqlDbType.VarChar, .Value = frmPOS.txtTransactionID.Text})
                .ExecuteNonQuery()
            End With
        Catch ex As SqlException
            MsgBox("Error: " + ex.Message)
        Finally
            connection.Close()
            command.Dispose()
        End Try
    End Sub