Question

我正在使用Access 2010，并且正在尝试撤消地理编码。我想指定一个lat \ long位置，然后将结果显示在列表框中。我有一个表单，有一个列表框和一个命令按钮。命令按钮有以下onclick事件:(我有我的lat \长地址X - ））

Dim XMLDoc As New DOMDocument
Dim XMLNode As IXMLDOMNode
Dim i As Long
Dim lat As Double, lng As Double


XMLDoc.Load "http://maps.googleapis.com/maps/api/geocode/xml?latlng=XX.XX,-X.XX&sensor=false"


Do Until XMLDoc.ReadyState = 4
DoEvents
Loop

If Len(XMLDoc.Text) = 0 Then
    Call MsgBox("No data!")
    Exit Sub
End If

Set XMLNode = XMLDoc.selectSingleNode("/GeocodeResponse/result/formatted_address")

For i = 0 To XMLNode.childNodes.length - 1

Me.List1 = XMLNode.childNodes(i).baseName & ": " & XMLNode.childNodes(i).Text

Next i

但是，我无法检索任何结果 - 列表框是空白的 - 我哪里错了？

此致

迈克尔

Answer 1

尝试使用此处所述的addItem方法

http://msdn.microsoft.com/en-us/library/office/ff835328(v=office.15).aspx

所以应用你的代码应该是（但我没有测试过）

Me.List1.AddItem Item:= XMLNode.childNodes(i).baseName & ": " & XMLNode.childNodes(i).Text

MS Access VBA反向地理编码

1 个答案: