Question

我正在尝试将一些数据添加到＆＃39; List＆＃39;表格（完全复制）。以下是我的代码。

Option Compare Database
Private Sub addToListSample_Click()
Dim introw As Integer

introw = ListSample.ListIndex + 1

ListSample.Column(0, introw) = TextP11.Value
ListSample.Column(1, introw) = TextP12.Value
ListSample.Column(2, introw) = TextP13.Value
ListSample.Column(3, introw) = TextP14.Value
ListSample.Column(4, introw) = TextP15.Value
ListSample.Column(5, introw) = TextP16.Value
ListSample.Column(6, introw) = TextP17.Value
End Sub

但是当我执行它时，我得到以下错误。＆＃34;运行时错误＆＃39; 424＆＃39; ：需要对象＆＃34;

为什么会出现此错误？我认为这是非常简单的代码，但我不知道为什么这个错误会让我烦恼....

Answer 1

首先改变

introw = ListSample.ListIndex + 1

到

introw = Me.ListSample.ListIndex + 1

在某些时候，您可能还需要检查列表框是否实际被选中，否则您将始终获得0。

编辑：

'add a row with hard-coded values:
'Dim introw As Integer
'introw = Me.lstEmpty.ListIndex + 1 '<-- not really needed when using AddItem.
'Me.lstEmpty.AddItem "value 1;value 2"

'or add a row using values from textboxes:
Me.ListSample.AddItem TextP11.Value & ";" & TextP12.Value & ";" & TextP13.Value

这会将值添加到不同列中的一行您的列表框的行来源类型必须设置为值列表。
列数必须与您要添加的列数相匹配。

将数据添加到List VBA中

1 个答案: