arrays - 将用户窗体中> 10列的多列列表框复制到数组

Question

我从几个论坛尝试了几种解决方案，但似乎没有任何帮助。

我很确定我犯了一些愚蠢的错误，解决方案就在我眼前，但我无法让它发挥作用。

我需要在用户表单中填写一个包含 12 列的列表框。

据我所知，超过10列，不能再使用 .List(i) 属性，但必须使用数组来填充它。我的问题是，每次我需要在列表框中插入新行时，我需要将列表框中的项目复制到数组中，将数组重新调整为多行，将新数据“插入”到这一新行中，并且，最后，将数组复制到列表框中。

我的代码如下:

iLine = lbPlanPreview.ListCount
ReDim arr(iLine, lbPlanPreview.ColumnCount - 1)

If iLine > 0 Then
    ReDim arr(0 To iLine - 1, lbPlanPreview.ColumnCount - 1)

    'Array Lines
    For iCur = 0 To iLine - 1
        'Array Columns
        For iCurAux = 0 To lbPlanPreview.ColumnCount - 1
            arr(iCur, iCurAux) = Me.lbPlanPreview.ListIndex(iCur, iCurAux)
        Next iCurAux
    Next iCur
End If

它总是给出类型不匹配错误:



任何想法？谢谢。

Answer 1

正确 ListBox.List功能

认为您用于恢复先前数据的最后一个数组分配应如下所述，并且可能限于 lbPlanPreview.ListCount - 1 :

'Array Lines
 For iCur = 0 To lbPlanPreview.ListCount - 1    ' possibly instead of: ILine - 1
    'Array Columns
    For iCurAux = 0 To lbPlanPreview.ColumnCount - 1
        arr(iCur, iCurAux) = Me.lbPlanPreview.List(iCur, iCurAux)
    Next iCurAux
 Next iCur