MapForums

chas · #1 (**permalink**) 09-08-2006

Trying to return all pushpins in a shape with 3 datasets on map. As i iterate through the shapes I get the same count of "3" regardless of how many pushpins are in shape . . . what am i doing wrong?

Code:

     tshapes = objmap.Shapes.Count
        Do While tshapes <> 0
            Set objshape = objmap.Shapes.Item(tshapes)
            objshape.Select
            Set objrec = objdata.QueryShape(objshape)
              MsgBox Str(objdata.RecordCount)
            objrec.MoveFirst
            reccount = 1
            Do While Not objrec.EOF
                reccount = reccount + 1
            Loop
            msgbox reccount
            tshapes = tshapes - 1
        Loop

**Wilfried** · #2 (**permalink**) 09-08-2006

Hi,

The first messagebox will popup (with the record count I assume), but then your code runs forever in the second loop because you dont increment the cursor in the recordset. You have to call MoveNext in the second loop. Or there is no record and the result is already EOF.

Thread Tools
Show Printable Version Email this Page
Display Modes
Linear Mode Switch to Hybrid Mode Switch to Threaded Mode

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
VB6 error "Method 'QueryShape' of object 'DataSet' fail	David J	MapPoint 2006/2009 Discussion	2	12-07-2005 01:13 PM
QueryShape dont work as expected	Bed007	MapPoint 2006/2009 Discussion	3	10-23-2005 02:39 PM
Problem with dataset.QueryShape Method	Ray Liu	MapPoint 2006/2009 Discussion	1	07-15-2004 10:55 AM
Huge memory leak in using QueryShape?	random0000	MapPoint 2006/2009 Discussion	2	03-28-2003 05:22 AM
QueryShape problem Please help	Anonymous	MapPoint 2006/2009 Discussion	2	03-13-2003 08:57 AM

MapForums

problems with queryshape

problems with queryshape

Currently Active Users Viewing This Thread: 1 (0 members and 1 guests)

Similar Threads