2

我正在尝试将 a 复制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

4

1 回答 1

4

这个例子对我有用：

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

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

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

于 2012-10-01T19:37:47.767 回答