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

有网友在论坛中发帖《求助！关于组合框与 》提及到往列表框里添加值，同时可以删除添加的值的问题。

如下图所示。有两个联动列表框，展示城市与景点信息。希望能在“景点”组合框里双击需要的内容后，把所选的景点直接复制到“所选景点”列表框里，同时在列表框也可以实现删除已选择的景点项目

那么我们这里用到两个列表框的属性AddItem和RemoveItem。双击“景点”添加所选到列表框，双击“所选景点”从列表框移除

Private Sub 景点_DblClick(Cancel As Integer)
    
    Me.所选景点.AddItem 景点
    Me.所选景点.Requery
End Sub


Private Sub 所选景点_DblClick(Cancel As Integer)
     Me.所选景点.RemoveItem (所选景点)
End Sub

效果如图：

注意：列表框的属性“行来源类型 ”必须为“值列表”