Question

我已经找到了这个问题并且实际上试图遵循一些解决方案，但是由于某种原因，它发生了它并没有与我合作。

所以我有一个下拉菜单（网关）和一个文本框（dueDate），一旦我选择并填充空格，我想填充一个ListBox1，第一列是网关，第二列是dueDate。

这就是我所拥有的，但它弹出一个窗口说： “运行时错误'381'：无法设置List属性。无效的属性数组索引。“

Private Sub CommandButton2_Click()
    'ListBox1.AddItem (gateway.Value)
    ListBox1.List(ListCount - 1, 0) = gateway.Value
    ListBox1.List(ListCount - 1, 1) = dueDate.Value
End Sub

我在设计编辑器中将ListBox1 BoundColumn和ColumnCount设置为2.

提前致谢！

修改管理修复它。根据对该主题的第一条评论，我使用了以下内容。

With ListBox1
    ListCount = .ListCount
    .AddItem gateway.Value
    .List(ListCount, 1) = dueDate.Value
End With

Answer 1

我需要一些时间自己解决这个问题（^。^）：

Private Sub CommandButton2_Click()

    With ListBox1
        ListCount = .ListCount
        .AddItem gateway.Value, ListCount -1
        .List(ListCount - 1, 0) = dueDate.Value
    End With

End Sub

告诉我它是否有效。

无法设置List属性

1 个答案: