主题：代码出错“未将对象引用设置到对象的实例” 请教错在那里？

这样试一下。

Dim txt_addr As WinForm.TextBox = e.Form.Controls("TextBox1")

 代码变成这样。

Dim txt_addr As WinForm.TextBox = e.Form.Controls("TextBox1")
Dim web As Object = e.Form.Controls("WebBrowser1").BaseControl
Dim Dom As System.Windows.Forms.HtmlDocument = web.Document
Dim point_x As System.Windows.Forms.HtmlElement = Dom.GetElementById("point_x")
Dim x As String = point_x.GetAttribute("value")
Dim point_y As System.Windows.Forms.HtmlElement = Dom.GetElementById("point_y")
Dim y As String = point_y.GetAttribute("value")

'设置显示内容.
Dom.GetElementById("marker_title").SetAttribute("value", "设备标题")
Dom.GetElementById("marker_content").SetAttribute("value", "设备地址")

Try
    Dim dr As DataRow = DataTables("表A").AddNew
    dr("设备地址") = txt_addr.Text
    dr("X") = X
    dr("Y") = Y
Catch ex As Exception
    msgbox("请输入正确的 国家/省市/县区")
End Try

 楼主，请注意，你的操作过程。

 首先是应该查询某个位置的，查询到以后，在具体的位置点击鼠标右键添加标记，然后拖动正确，然后再点击写入数据表的。

 具体看我昨天给你的例子。

 '设置显示内容.
Dom.GetElementById("marker_title").SetAttribute("value", "设备标题")
Dom.GetElementById("marker_content").SetAttribute("value", x & "|" & y)