MapForums

If a user manually adds two or more pushpins to a map control, there has got to be a way to cycle through them all to get the names of the pushpins, doesn't there?

I tried this example:

Dim objDataSet As MapPoint.DataSet
Dim objRecordset As MapPoint.Recordset
Dim objField As MapPoint.Field
objDataSet = AxMappointControl1.OpenMap("C:\Program Files\Microsoft MapPoint\Samples\Clients.ptm").DataSets("Clients")

'Retrieve all records
objRecordset = objDataSet.QueryAllRecords

'Get the values
Dim vals As String
objRecordset.MoveFirst()
Do Until objRecordset.EOF
For Each objField In objRecordset.Fields
vals = vals & CStr(objField.Value) & vbTab
Next objField
vals = vals & vbCrLf
objRecordset.MoveNext()
Loop
MsgBox(vals)

which works just great for the sample, but when I try the same thing after adding pushpins, my objRecordSet shows the right number of pushpins, but the number or Fields is 0, so this:

For Each objField In objRecordset.Fields

Just falls right through.

Don't worry about the fields. Consider this example.

__________________
John
http://www.support-pc.com

Order MapPoint 2006 Here
https://secure.mp2kmag.com/?refer=support-PC

Meant to get back to you on this.

Worked perfect....thanks.