如何更新列表框中的文本框总价

Question

我想要做的是将项目添加到列表框中，文本框将自动更新。我已经完成了我可以添加的价格将被添加但仅适用于数量 1 如果我添加 1 件超过 1 个数量将仅计为数量 1 件价格如何解决？

count = Math.Round(qty_of_item, 2) * (product_price)

        lblprice.Text = (" Rm " & count)
        ListBox1.Items.Add(product_name)

        ListBox4.Items.Add(product_class)
        ListBox5.Items.Add(product_size)

        ListBox3.Items.Add((" " & Math.Round(qty_of_item)))
        ListBox2.Items.Add(FormatCurrency(count))

        caculate = count

        total = 0

        Dim price As Decimal = 0
        price = total + caculate

        For i As Integer = 0 To ListBox2.Items.Count - 1 'get the item count inside listview
            price = (CDec(ListBox2.Items(0).ToString())) 'get the value of item of each item in each listbox row
            total += price 'add price into total
        Next

        txtsubtotal.Text = FormatCurrency(total)

        gst = total * 0.06
        txtgst.Text = FormatCurrency(gst)

        total_after_gst = total + gst
        txtfinaltotal.Text = FormatCurrency(total_after_gst)

    Else
        MessageBox.Show("Qty value cant be empty And only allow Integer", "Error", MessageBoxButtons.OKCancel, MessageBoxIcon.Error)

    End If

更新

这个还是解决不了

Answer 1

您必须在 For - Next loop 中使用 price 代替 caculate

For i As Integer = 0 To ListBox2.Items.Count - 1 'get the item count inside listview
    price = CDec(ListBox2.Items(i)) 'get the value of item of each item in each listbox row
    total += price 'add price into total
Next