保存在多选列表框中选择的记录

Question

我正在尝试为保存按钮编写代码，该按钮应该用于保存多选列表框中所有选定行的数据。这是我的代码：

Dim strID As String, strFullName As String, strUsedNumber As String, strUsedAddress As String, strUsedPosition As String
Dim iCurrRow As Integer
strID = txtID
strFullName = txtFullName
strUsedNumber = lstTest.Column(0, iCurrRow)
strUsedAddress = lstTest.Column(1, iCurrRow)
strUsedPosition = lstTest.Column(2, iCurrRow)

iCurrRow = 0
Do While (iCurrRow < lstTest.ListCount)
    If lstTest.Selected(iCurrRow) Then
        IO_TestData.saveInfoUsedInTestData strID, strFullName, strUsedNumber, strUsedAddress, strUsedPosition
    End If
    iCurrRow = iCurrRow + 1
Loop

当前，它仅保存列表框的第一行-如果您从列表中选择三行，它将尝试保存三行。有人可以帮我吗？

Answer 1

您为

设置了变量

strUsedNumber = lstTest.Column(0, iCurrRow)
strUsedAddress = lstTest.Column(1, iCurrRow)
strUsedPosition = lstTest.Column(2, iCurrRow)

在循环之外，因此它们永远不会改变。