如何返回多維數組的值在列表視圖（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 

Answer 2

我解決了這個如下：

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

bytRowCnt = 1 
With Me.lvDetaillist 
    For i = 0 To intFirstIdx 
     Set li = .ListItems.Add(, , bytRowCnt) 

     cnt = 1 
     For k = 0 To intSecIdx 
      li.SubItems(cnt) = arrDetailInfo(k, i) 
      cnt = cnt + 1 
     Next k 
     bytRowCnt = bytRowCnt + 1 
    Next i 
End With 

而且它的工作原理很大:)