listview2存储 选择数据

Question

For i = 1 To ListView2.ListItems.Count        If ListView2.ListItems(i).Selected = True Then
        
            If ListView2.ListItems(i).Text = "1" Then
            
               MsgBox "This Item has been ordered"
               Exit Sub
            Else
               Sk = ListView2.ListItems(i).SubItems(1)
               sCmd="Select a.MenuID, a.itemID,a.Qty  from TableBookDetail a inner join TableBookTrans b on a.menuID=b.menuID where barcode='"& Sk &"'"
               Set EF = oCmn.ExecRS(sCmd, DCN)
            End If
            
        End If
    Next    sRetVal = "2" & Trim(mcID.Text)
    Unload Me如何把我选择的listview2里的数据暂时存储起来，我要在另外一个模块中对这些数据进行数据处理。

Answer 1

lz把代码贴出来是要说明什么呢?
直接存在数组里,是这个意思吗
    Dim arrTmp() As String
    ReDim arrTmp(ListView2.ListItems.Count - 1)
    For i = 1 To ListView2.ListItems.Count
        arrTmp(i - 1) = ListView2.ListItems(i).Text
    Next

Answer 2

我存储的目的是在另一个模块中可以调用这些存储数据对数据进行处理。
比如我选择了listview2中的2条数据，然后关闭这个窗口frmtable,取sRetVal返回到frmMain中，再在class modules中对数据处理。

Answer 3

    Dim arrTmp() As String, ifFirst As Boolean
    
    For i = 1 To ListView1.ListItems.Count
        If ListView1.ListItems(i).Selected = True Then
            If ifFirst = False Then
                ifFirst = True
                ReDim arrTmp(0)
            Else
                ReDim Preserve arrTmp(UBound(arrTmp) + 1)
            End If
            arrTmp(UBound(arrTmp)) = ListView1.ListItems(i).Text
        End If
    Next
如果是checkbox 用checked属性