vba - 将列表框复制到另一个

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"