Vb.net 通过使用复选框从列表视图中删除项目

我的程序接受一个复选框项目，根据发票上项目上的序列号，从金额列表中减去一个 在详细信息页面的列表视图中，我添加了以下代码：

项目-低筒袜子（粉色）
序列号#-34-75-860
价格-5.89
金额-12

除了它们在列中，而不是像上面那样的行中

Dim items As New ListViewItem
    items = ListView1.Items.Add("Low Socks(Pink)")
    items.SubItems.Add("34-75-860")
    items.SubItems.Add("$5.89")
    items.SubItems.Add("12")

    items = ListView1.Items.Add("Low Socks(Black)")
    items.SubItems.Add("34-75-900")
    items.SubItems.Add("$5.89")
    items.SubItems.Add("25")

    items = ListView1.Items.Add("Low Socks(Red)")
    items.SubItems.Add("34-75-756")
    items.SubItems.Add("$5.89")
    items.SubItems.Add("10")

    items = ListView1.Items.Add("Low Socks(Orange)")
    items.SubItems.Add("34-75-234")
    items.SubItems.Add("$5.89")
    items.SubItems.Add("34")

    items = ListView1.Items.Add("Low Socks(Blue)")
    items.SubItems.Add("34-75-598")
    items.SubItems.Add("$5.89")
    items.SubItems.Add("23")
End Sub

在我的发票页面下，发票上的项目旁边有复选框。单击复选框时，我希望金额减少1。我会在以后去，并改变它的实际数额，它需要取决于多少，他们订购的项目。。。我的复选框编码如下：

Dim item As ListViewItem
    Dim i As Integer
    Dim count As Integer

    'count the number of items in itemdetails2 listview
    count = ItemDetails2.ListView1.Items.Count - 1

    'loop to read each item in the list
    For i = 1 To count

        If i > count Then Exit For

        item = ItemDetails2.ListView1.Items(i)

        'compare the item to the serial number
        If item.Checked = True Then

            If (item.SubItems(0).Text = "34-75-860") Then
                item.SubItems(2).Text -= 1
            End If

            i = i + 1
            count = count - 1
        End If

    Next

    ItemDetails2.Show()
End Sub

现在它看起来什么都没做。我已尝试将子项上的索引更改为1和3，而不是0和2，但我认为，因为它们是子项，所以它们需要是子项索引0和子项索引2，因为一个项有一个项和三个子项。如果这有道理的话。。。。

---

请帮助。

不用深入研究索引内容，我可以注意到您将字符串视为数字

item.SubItems(2).Text -= 1

当您应该尝试时：

item.SubItems(2).Text -= CStr(CDec(item.SubItems(2).Text) - 1D)

---

我希望这会有所帮助……

这是必要的，我在编码中对此进行了更改，但它仍然不起作用。我也尝试过使用其他索引量，但仍然不起作用。@Amen，我想你的建议是使用=而不是-。