Question

我在使用VBA中的列表框时遇到问题。我不确定我错过了哪一步。我创建了一个名为ListBox1的列表框。

我编写的程序如下：

Sub ListBox1_Change()
    Dim ListBox As Object

    With Listbox1
        .AddItem = "Yes"
        .AddItem = "No"
    End With
End Sub

该程序在.AddItem = "No"行失败。我收到Object Variable or With Block Variable not set错误。

Answer 1

不确定为什么要在更改事件中将项目添加到同一个列表框中。但是，代码中存在语法错误。将项目添加到列表框时没有java.lang.ClassCastException: org.hibernate.internal.QueryImpl cannot be cast to com.models.User at com.models.UserDao.getByEmail(UserDao.java:62)。看到这个。

同时删除第With Listbox1 .AddItem "Yes" .AddItem "No" End With行。你不需要它。

如果您打算将其添加到另一个列表框，那么我认为您需要这个

Dim ListBox as Object

列表框AddItem错误

1 个答案: