VB.NET开发中ListBox仅计算最新添加项问题求助

我在Visual Studio中使用VB.NET开发一款自动化应用，通过DataGridView和“添加到购物车”按钮将数据转移至ListBox。目前计算已添加项时遇到问题：仅能计算最新添加的项，无法累加之前添加的所有项。需要实现点击“保存销售发票”按钮时，ListBox可同时计算所有已添加项（包括历史项）。

原始问题代码 #

Private Sub compute()
    Dim itemname As String
    Dim labor, itemprice, quantity, total, priceperquantity As Double

    FrmSummary.LstOrder.Items.Clear()

    If IsNumeric(Guna2TextBox3.Text) And IsNumeric(Guna2TextBox2.Text) And Guna2TextBox1.Text <> "" And txtLabor.Text <> "" Then
        itemname = Guna2TextBox1.Text
        itemprice = CDbl(Guna2TextBox2.Text)
        labor = CDbl(txtLabor.Text)
        quantity = CDbl(Guna2TextBox3.Text)


        Dim laborCost As Double = labor
        Dim partsCost As Double = itemprice
        Dim quantity1 As Double = quantity
        Dim itemperquantity As Double = priceperquantity

        itemperquantity = (itemprice * quantity)

        total = laborCost + itemperquantity

        FrmSummary.LstOrder.Items.Add("Item Name: " & (itemname))
        FrmSummary.LstOrder.Items.Add("Item Price: " & (itemprice))
        FrmSummary.LstOrder.Items.Add("Quantity: " & (quantity))
        FrmSummary.LstOrder.Items.Add("Labor Cost: " & FormatCurrency(laborCost))
        FrmSummary.LstOrder.Items.Add("Total: " & FormatCurrency(total))

    Else
        MessageBox.Show("Please enter valid input!")

    End If

End Sub


Private Sub btnSave_Click(sender As Object, e As EventArgs) Handles btnSave.Click
    If Guna2TextBox1.Text <> "" And Guna2TextBox2.Text And Guna2TextBox3.Text <> "" Then
        compute()
        FrmSummary.ShowDialog()
    End If
End Sub

问题根源 #

1. 每次调用compute()时，第一行执行FrmSummary.LstOrder.Items.Clear()直接清空ListBox，导致只能保留最新一次的计算结果
2. 代码没有存储历史添加的购物车项，仅处理单次输入的计算，无法实现累加

解决方案 #

1. 定义全局集合存储购物车项

首先在窗体类中定义一个类封装购物车项信息，并声明全局集合保存所有项：

' 封装单个购物车项的信息
Public Class CartItem
    Public Property ItemName As String
    Public Property ItemPrice As Double
    Public Property Quantity As Double
    Public Property LaborCost As Double
    Public Property Total As Double
End Class

' 全局集合，保存所有添加到购物车的项
Private cartItems As New List(Of CartItem)

2. 完善“添加到购物车”按钮逻辑（假设你有此按钮）

将每次输入的合法项添加到全局集合中，保留历史数据：

Private Sub btnAddToCart_Click(sender As Object, e As EventArgs) Handles btnAddToCart.Click
    ' 验证输入合法性
    If Not IsNumeric(Guna2TextBox2.Text) Or Not IsNumeric(Guna2TextBox3.Text) Or Not IsNumeric(txtLabor.Text) _
        Or String.IsNullOrEmpty(Guna2TextBox1.Text) Then
        MessageBox.Show("请输入有效的数据！")
        Return
    End If

    ' 创建购物车项对象并赋值
    Dim newItem As New CartItem With {
        .ItemName = Guna2TextBox1.Text,
        .ItemPrice = CDbl(Guna2TextBox2.Text),
        .Quantity = CDbl(Guna2TextBox3.Text),
        .LaborCost = CDbl(txtLabor.Text)
    }
    ' 计算当前项的总价
    newItem.Total = newItem.LaborCost + (newItem.ItemPrice * newItem.Quantity)
    ' 添加到全局集合
    cartItems.Add(newItem)

    ' 可选：更新当前窗体的ListBox显示已添加项
    UpdateCartDisplay()
End Sub

' 更新当前购物车显示的辅助方法
Private Sub UpdateCartDisplay()
    ' 示例：在当前窗体的ListBox中显示已添加项
    ' LstCart.Items.Clear()
    ' For Each item In cartItems
    '     LstCart.Items.Add($"{item.ItemName} x {item.Quantity} - {FormatCurrency(item.Total)}")
    ' Next
End Sub

3. 修改compute()和保存按钮逻辑

移除清空ListBox的错误操作，改为遍历全局集合计算总和并显示所有项：

Private Sub compute()
    FrmSummary.LstOrder.Items.Clear()
    Dim grandTotal As Double = 0 ' 所有项的总合计

    ' 遍历所有购物车项，逐个添加到发票ListBox
    For Each item In cartItems
        FrmSummary.LstOrder.Items.Add($"商品名称: {item.ItemName}")
        FrmSummary.LstOrder.Items.Add($"商品单价: {item.ItemPrice}")
        FrmSummary.LstOrder.Items.Add($"数量: {item.Quantity}")
        FrmSummary.LstOrder.Items.Add($"人工成本: {FormatCurrency(item.LaborCost)}")
        FrmSummary.LstOrder.Items.Add($"当前项总价: {FormatCurrency(item.Total)}")
        FrmSummary.LstOrder.Items.Add("------------------------") ' 分隔线区分不同商品
        grandTotal += item.Total ' 累加总金额
    Next

    ' 添加总合计行
    FrmSummary.LstOrder.Items.Add($"总金额: {FormatCurrency(grandTotal)}")
End Sub

Private Sub btnSave_Click(sender As Object, e As EventArgs) Handles btnSave.Click
    ' 验证购物车是否有商品
    If cartItems.Count = 0 Then
        MessageBox.Show("购物车中没有商品！")
        Return
    End If
    compute()
    FrmSummary.ShowDialog()
End Sub

核心改进点 #

• 用CartItem类统一管理每个商品的信息，便于维护和扩展
• 全局集合cartItems保留所有历史添加的项，避免数据丢失
• compute()方法遍历集合计算总金额，同时渲染所有商品到发票ListBox中
• 优化输入验证逻辑，确保数据合法再添加到购物车

内容的提问来源于stack exchange，提问作者VVCTR