Question

我正在尝试将listbox复制到另一个

所以我清除目的地listbox中的所有项目

    While Forms!SalesCallInformation!lstMills.ListCount > 0
        Forms!SalesCallInformation!lstMills.RemoveItem (0)
    Wend

然后我复制所有这样的项目

    For i = 0 To lstMillsToAdd.ListCount - 1
        Forms!SalesCallInformation!lstMills.AddItem (lstMillsToAdd.Column(0, i) & ";" &   lstMillsToAdd.Column(1, i) & ";" & lstMillsToAdd.Column(2, i))
    Next

问题是在目的地listbox，我仍然有旧项目。但是，当我删除Forms!SalesCallInformation!lstMills.ListCount时，我会看到它正在递减，所以它必须删除一些东西。

是否有令人耳目一新的形式？原因我在插入新项目之后尝试执行此操作：Forms!SalesCallInformation.Refresh但我的结果相同。

有没有人有想法？

谢谢

此外，rowSourceType设置为value list

Answer 1

此示例适用于我：

Private Sub Button1_Click()
Me.List2.RowSource = Me.List0.RowSource
End Sub

Private Sub Button2_Click()
Me.List2.RowSource = ""
End Sub

两个列表框都是值列表。行源设置为“abc”;“def”;“ghi”

将列表框复制到另一个

1 个答案: