如何从表中的多个选定行中检索数据？

Question

我使用的是 MS Access 2007。我有一个插入了子表单的表单。子表单本质上显示为数据行和列的网格，每一行代表表中的一条记录。

我在主窗体上有一个按钮，单击该按钮时，会从子窗体中当前选定的行中获取数据。子表单中的表格本质上是纬度和经度值的列表，以度、分、秒为单位。这是单击主窗体按钮时运行的代码：

Dim LatLong As String
Screen.PreviousControl.SetFocus
LatLong = Me.Results.Form.LatitudeDegrees.Value & "+" & _
        Me.Results.Form.LatitudeMinutes.Value & "+" & _
        Me.Results.Form.LatitudeSeconds.Value & "+N,+" & _
        Me.Results.Form.LongitudeDegrees.Value & "+" & _
        Me.Results.Form.LongitudeMinutes.Value & "+" & _
        Me.Results.Form.LongitudeSeconds.Value & "+W"

Launch ("http://maps.google.com/maps?q=" & LatLong & "&hl=en&t=h")

这将在谷歌地图上的 LatLong 坐标处显示一个图钉。这很好用。

我现在要做的是显示子表单表中存在的多个选定行的图钉。我不知道该怎么做。我可以处理将数据传递到谷歌地图，这不是问题。我不知道如何从子表单表中的 MULTIPLE 选定行中检索值。上面的代码只检索第一条记录的值。

Answer 1

您是否在该子表单上使用数据网格？如果是这样，请考虑改用多选列表框。然后你可以使用这样的东西（你需要改变所有的变量，显然......）：

Private Sub testmultiselect_Click()
    Dim oItem As Variant
    Dim sTemp As String
    Dim iCount As Integer

    iCount = 0

    If Me!NamesList.ItemsSelected.Count <> 0 Then
        For Each oItem In Me!NamesList.ItemsSelected
            If iCount = 0 Then
                sTemp = sTemp & Me!NamesList.ItemData(oItem)
                iCount = iCount + 1
            Else
                sTemp = sTemp & "," & Me!NamesList.ItemData(oItem)
                iCount = iCount + 1
            End If
        Next oItem
    Else
        MsgBox "Nothing was selected from the list", vbInformation
        Exit Sub  'Nothing was selected
    End If

    Me!mySelections.Value = sTemp
End Sub