運行時間380，無法設置Listproperty

Question

我有一個帶有3列的列表框的用戶窗體，第一列填充由數組初始化。第二列和第三列留空。在選擇時，通過函數調用輸入框，輸入並驗證第二列中需要的數字。我已經試過這與List財產，但我得到的錯誤

運行時錯誤「380」：

無法設置列表屬性。無效的屬性值。

這裏是一個操縱列表框的子：

Private Sub lstKarren_Change() 
    Dim i As Long 
    Dim karName As String 
    With Me.lstKarren 
     For i = 0 To .ListCount - 1 
      If .Selected(i) And Not Karren(i) Then 
       Karren(i) = True 
       .List(i, 1) = numValInput 
      ElseIf Not .Selected(i) And Karren(i) Then 
       Karren(i) = False 
       .List(i, 1) = Empty 
      End If 
     Next i 
    End With 

End Sub 

調試器突出了行：

.list(i, 1) = numValInput 'numValInput is function which returns a number as a string. 

代碼罰款運行我將其更改爲.List(i)的時刻，但隨後改變第一列，而不是第二列。我發現information說List屬性應該做的設置第二列的技巧，但我不明白爲什麼我得到運行時錯誤。

Answer 1

問題是由列表框被polpulated的方式造成，改變：

Me.lstKarren.List = Array("Selectie", "Links AB", "Links CD", "Rechts AB", "Rechts CD") 

到：

With Me.lstKarren 
    .AddItem "Selectie" 
    .AddItem "Links AB" 
    .AddItem "Links CD" 
    .AddItem "Rechts AB" 
    .AddItem "Rechts CD" 
End With 

解決的問題。