MapXtreme2008怎样实现在地图上添加点，并为其增加Label，并定时刷新Label

[sytsyt0329]

自己已做了一个程序，可以实现地图上增加700个点，并附带标注，已实现定时刷新，但每次Label数据刷新到第6次时程序就报错，提示：“GDI+ 中发生一般性错误”或者“无法创建与屏幕兼容的位图。无法确定屏幕位图格式。”

不解，请各位高手赐教！
或者提供一个通用方法或更好的方法完成地图上添加点与定时更新标注。

[outou]

看看代码。

[tfzdh]

顶

[sytsyt0329]

本人代码如下：
Public Sub DataUpdateAndShow(ByVal tmpDataTable As DataTable)
'tmpDataTable 包含将要用于更新的700行数据，
'注：'tmpDataTable（其包含两个字段strId和strData ） 用于保存需要更新的行数据，如果只有100行数据，能更新，但连续更新至第7此时就报错，如果一次存在700行以上的数据更行操作，只要第一次更新就报错。
Dim miConnection As New MapInfo.Data.MIConnection
miConnection.Open()

Dim miCommand As New MapInfo.Data.MICommand
miCommand.Connection = miConnection
Dim Cat As MapInfo.Data.Catalog = MapInfo.Engine.Session.Current.Catalog


For i As Integer = 0 To tmpDataTable.Rows.Count - 1
Dim strId As String = tmpDataTable.Rows(i).Item(0).ToString
Dim strData As String = tmpDataTable.Rows(i).Item(1).ToString

miCommand.CommandText = "update myTable set col_Data='" & strData & "' where col_Id= '" & strId & "'"
miCommand.ExecuteNonQuery()
Next

miCommand = Nothing
miConnection.Close()
miConnection = Nothing

labSource_myData.Enabled = False '刷新Label显示
labSource_myData.Enabled = True

End Sub

[aliuying]

不懂也顶