arrays - 如何从 ListView 中的多维数组返回值(VBA)

Question

我尝试按如下方式解决我的问题:

intFirstIdx = UBound(arrDetailInfo, 1)
intSecIdx = UBound(arrDetailInfo, 2)

With Me.lvDetaillist
    With .ColumnHeaders
        .Clear
        .Add , , "#", 20
        .Add , , "ID", 50
        .Add , , "Assets", 50
        .Add , , "Day Count", 50
        .Add , , "Result", 150
    End With
    .ListItems.Clear
End With

cnt = 1
With Me.lvDetaillist
    For i = 0 To intFirstIdx
        Set li = .ListItems.Add(, , cnt)
        For k = 0 To intSecIdx
            li.SubItems(cnt) = arrDetailInfo(i, k)
        Next k
        cnt = cnt + 1
    Next i
End With

这是我的内容数组:

有人知道如何解决这个问题吗？

Answer 1

li.SubItems(cnt) = arrDetailInfo(i, k)

试试这个:

li.SubItems(k+1) = arrDetailInfo(i, k)

您可以在没有这些计数器 cnt 和 bytRowCnt 的情况下完成此操作:

With Me.lvDetaillist
    For i = 0 To intFirstIdx
        Set li = .ListItems.Add(, , i+1)
        For k = 0 To intSecIdx
            li.SubItems(k+1) = arrDetailInfo(i, k)
        Next k
    Next i
End With