Hinzufügen Wert auf textbox nach Klick auf die Schaltfläche "Hinzufügen" in VB.net

Hier ist mein Teil der Codierung...was ich möchte ist wenn ich klickte die Schaltfläche wird der Wert aus der Datenbank Hinzugefügt werden, in das Textfeld ein. Aber was bekomme ich, wenn ich auf die Schaltfläche klicke, wird der Wert in der textbox wird gerade ersetzt durch den neuen Wert aus der Datenbank.
kann jemand mir helfen, dieses problem zu lösen?

Private Sub btnAdd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAdd.Click

        txtShowDescrip.Text &= cmbDescrip.SelectedItem & ","

        Dim conn As OleDbConnection = New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=SDP_DB.accdb")
        Dim str As String
        Dim dr As OleDbDataReader
        Dim cmd As OleDbCommand
        Dim total As Integer = 0
        conn.Open()
        str = "Select * From ChargeTable Where Description='" & cmbDescrip.Text & "'"

        cmd = New OleDbCommand(str, conn)
        dr = cmd.ExecuteReader
        dr.Read()
        If dr.HasRows = True Then

            total += dr.Item("PriceRate")
            txtShowRate.Text = "$" & total

        End If
        dr.Close()
        conn.Close()
    End Sub
  • Omg, lies deinen eigenen post zurück;
InformationsquelleAutor YW CHAI | 2013-08-16
  1. 0

    Omg, Lesen Sie Ihren eigenen Beitrag zurück;

    ... wenn ich klickte die Schaltfläche, wird der Wert in das Textfeld Hinzugefügt, in das Textfeld ein.
    Aber wenn ich auf die Schaltfläche klicke, wird der Wert in der textbox wird gerade ersetzt durch den neuen Wert.

    Also, was genau wollen Sie passieren, das der button angeklickt wird?

    • danke...bereits Korrektur...
    • btw...ich brauche die Summe den Wert aus der Datenbank, während ich auf die Schaltfläche hinzufügen...aber es gerade ersetzen Sie den Wert aus der Datenbank in das Textfeld, wenn ich auf die Schaltfläche klicke
    InformationsquelleAutor Lectere
  2. 0

    Ihre derzeit setzen Sie den text der textbox auf den neuen Wert, wenn Sie möchten, fügen Sie neue Sachen, die Sie brauchen, zu verwenden & oder &=

        Dim nfi As New System.Globalization.NumberFormatInfo()
    nfi.CurrencySymbol = "$"

    dim tot as decimal = total + Decimal.Parse(TextBox1.Text, Globalization.NumberStyles.Any, nfi)


    txtShowRate.Text =  "$" & tot
    • david..danke für deine Antwort...aber das Ergebnis der Codierung ist es angezeigt, wieder ein anderer Wert...was ich möchte, ist die Summe den Wert in der textbox...
    • Jetzt verstehe ich es 🙂
    InformationsquelleAutor David Sdot
  3. 0

    Können Sie die Verwendung von statischen Erklärung ..

    Static total As Integer = 0

    Oder wenn Sie noch Dim .. 

    If dr.HasRows = True Then

    total = val(txtShowRate.Text) + dr.Item("PriceRate")
    txtShowRate.Text = "$" & format(total)

End If
    • erm...danke matzone...ich habe gerade versucht deinen code..aber es funktioniert immer noch nicht...=(
    InformationsquelleAutor matzone
  4. 0
    If dr.HasRows = True Then
        total = CType(txtShowRate.Text,Integer) + dr.Item("PriceRate")
        txtShowRate.Text = "$" & total.ToString
End If
    • vielen Dank...aber...dein code cant arbeiten...=(
    InformationsquelleAutor Nima Yr.
Schreibe einen Kommentar