2

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 に答える