Access列表框添加值，刪除列表框的值

有網(wǎng)友在論壇中發(fā)帖《求助！關(guān)于組合框與 》提及到往列表框里添加值，同時(shí)可以刪除添加的值的問題。

如下圖所示。有兩個(gè)聯(lián)動列表框，展示城市與景點(diǎn)信息。希望能在“景點(diǎn)”組合框里雙擊需要的內(nèi)容后，把所選的景點(diǎn)直接復(fù)制到“所選景點(diǎn)”列表框里，同時(shí)在列表框也可以實(shí)現(xiàn)刪除已選擇的景點(diǎn)項(xiàng)目

那么我們這里用到兩個(gè)列表框的屬性AddItem和RemoveItem。雙擊“景點(diǎn)”添加所選到列表框，雙擊“所選景點(diǎn)”從列表框移除

Private Sub 景點(diǎn)_DblClick(Cancel As Integer)
    
    Me.所選景點(diǎn).AddItem 景點(diǎn)
    Me.所選景點(diǎn).Requery
End Sub


Private Sub 所選景點(diǎn)_DblClick(Cancel As Integer)
     Me.所選景點(diǎn).RemoveItem (所選景點(diǎn))
End Sub

效果如圖：

注意：列表框的屬性“行來源類型 ”必須為“值列表”