添加带有循环的listview子项

Question

请帮助。 这是我的桌子。

 ID  Item        Qty   Added Qty

 1   Ballpen      23     5

 2   Pencil       44     4

 3   Pentelpen    12     5

我想一次更新项目，但是当我运行程序时，它与第一项相同。

例如，当单击“保存”按钮时，所有数量（如圆珠笔）将为28。

这是我的代码。 提前致谢。

                Dim lvitem As Object
                Dim iCount As Integer
                Dim iLoop As Integer
                Dim qty As Double = Val(lvPO.Items(0).SubItems(1).Text) + Val(lvPO.Items(0).SubItems(2).Text)

                iCount = lvPO.Items.Count()
                If Not lvPO.Items.Count = 0 Then
                    Do Until iLoop = lvPO.Items.Count
                        lvitem = lvPO.Items.Item(iLoop)
                        With lvitem
                        Call SEDCommand("E", "tbl_item", "  qty = '" & qty & "' WHERE itemid ='" & .SubItems(0).text & "'")
                        End With
                        iLoop = iLoop + 1
                        lvitem = Nothing
                    Loop
                    MsgBox("Purchase Order (" & tb_refpo.Text & ") is added in database!", MsgBoxStyle.Information, "SYSTEM")
                    ClearTextBox(Me)
                End If

Answer 1

正如@Blackwood所说，您只需要在循环外计算一次数量，并对每个项目使用相同的值。 您想像这样在循环中做到这一点（并且使用更多的VB.NET样式构造使代码更易于阅读。这不是VB6 :-)）

   If lvPO.Items.Count <> 0 Then
      For Each lvitem as ListViewItem in lvPO.Items
         With lvitem
            Dim qty As Double = Val(.SubItems(1).Text) + Val(.SubItems(2).Text)
            SEDCommand("E", "tbl_item", "  qty = '" & qty & "' WHERE itemid ='" & .SubItems(0).text & "'")
         End With
      Next
      MsgBox("Purchase Order (" & tb_refpo.Text & ") is added in database!", MsgBoxStyle.Information, "SYSTEM")
      ClearTextBox(Me)
   End If