VBA 将两个列表框值插入表中

Question

我的表单上有两个列表框。 对于在 ConceptList 中选择的每个项目，我需要在 ParkList 中添加所有选择的项目

附加的期望状态图像显示了当在概念列表中做出两个选择并在前景列表中做出四个选择时我所期望的。当前状态显示以下代码的结果

Current State Image Desired State Image

  Dim db As Database
   Dim rs As Recordset

   Set db = CurrentDb()
   Set rs = db.OpenRecordset("tblFinal")
   For Each itm In ConceptList.ItemsSelected
        rs.AddNew
        rs!ConceptID = ConceptList.ItemData(itm)
        rs!ParkID = ParkList.ItemData(itm)
        rs.Update
  Next

  rs.Close
  Set rs = Nothing
  Set db = Nothing


End Sub

Answer 1

你还需要一个内部循环：

Dim db As DAO.Database
Dim rs As DAO.Recordset

Set db = CurrentDb()
Set rs = db.OpenRecordset("tblFinal")

For Each concept In ConceptList.ItemsSelected
    For Each park In ParkList.ItemsSelected
        rs.AddNew
            rs!ConceptID = ConceptList.ItemData(concept)
            rs!ParkID = ParkList.ItemData(park)
        rs.Update
    Next
Next   
rs.Close

Set rs = Nothing
Set db = Nothing