I use the following nested loops to read the first point feature of a dataset and the rest points in that dataset. Then read the second point feature of a dataset and the rest points in that dataset and so on. The problem with these nested loops is that it reads the first point and the rest points only once. Why this happens?
Dim pFCursor As IFeatureCursor Set pFCursor = pFeatureClass.Search(Nothing, True) Dim pFCursor2 As IFeatureCursor Set pFCursor2 = pFeatureClass.Search(Nothing, True) Dim pFeature As IFeature Dim pFeature2 As IFeature Dim pPointA As IPoint Dim pPointB As IPoint Set pFeature = pFCursor.NextFeature Do Until pFeature Is Nothing Set pPointA = pFeature.Shape MsgBox pFeature.Value(intPosFID) & "F1" Set pFeature2 = pFCursor2.NextFeature Do Until pFeature2 Is Nothing Set pPointB = pFeature2.Shape MsgBox pFeature2.Value(intPosFID) & "F2" Set pFeature2 = pFCursor2.NextFeature Loop Set pFeature = pFCursor.NextFeature Loop