topic Re: Update the shape file using the table in ArcObjects SDK Questions

Update the shape file using the table

SanthoshBalakrishnapillai — Mon, 13 Dec 2010 16:44:15 GMT

If anyone can help me out with this problem.It works for the first record and hangs forever. Please correct me to solve this problem.I am trying to update the shape file using the table.

Dim pMxdoc As IMxDocument
Set pMxdoc = ThisDocument

Dim pMap As IMap
Set pMap = pMxdoc.FocusMap

Dim pFlayer As IFeatureLayer
Dim pFClass As IFeatureClass

Set pFlayer = pMxdoc.FocusMap.Layer(1)
Set pFClass = pFlayer.FeatureClass

Dim pFields As IFields
Set pFields = pFClass.Fields

Dim pFCursor As IFeatureCursor
Set pFCursor = pFClass.Update(Nothing, True)

Dim pFeature As IFeature
Set pFeature = pFCursor.NextFeature

Dim intMunl As Integer
intMunl = pFCursor.FindField("MUNL")

Dim intCityl As Integer
intCityl = pFCursor.FindField("CITY_L")

Dim pFact As IWorkspaceFactory
Set pFact = New AccessWorkspaceFactory

Dim pWorkspace As IWorkspace
Set pWorkspace = pFact.OpenFromFile("E:\\County_MUN\County.mdb", 0)

Dim pFeatureWorkspace As IFeatureWorkspace
Set pFeatureWorkspace = pWorkspace

Dim pTable As ITable
Set pTable = pFeatureWorkspace.OpenTable("suffolk_mun")

Dim pTCursor As ICursor
Set pTCursor = pTable.Search(Nothing, True)

Dim pRow As IRow
Set pRow = pTCursor.NextRow

Do Until pFeature Is Nothing

        If pFeature.Value(intMunl) = pRow.Value(1) Then
            pFeature.Value(intCityl) = pRow.Value(2)
            pFCursor.UpdateFeature pFeature
            Set pFeature = pFCursor.NextFeature
        End If


Loop

Thanks
Santhosh

Re: Update the shape file using the table

FrankKish — Mon, 13 Dec 2010 17:40:16 GMT

I did not look at most of your code but I suspect that the "Set pFeature = pFCursor.NextFeature" should not be in the if block as you have it, otherwise you are not going to the NextFeature unless you go into the if block.

So something like this....

If pFeature.Value(intMunl) = pRow.Value(1) Then
pFeature.Value(intCityl) = pRow.Value(2)
pFCursor.UpdateFeature pFeature
End If

Set pFeature = pFCursor.NextFeature

Re: Update the shape file using the table

SanthoshBalakrishnapillai — Wed, 05 Jan 2011 20:02:52 GMT

My problem is that prow.value(1) is not on a loop. So I put it in the loop.

Do until pfeature is nothing
do until prow is nothing
    If pFeature.Value(intMunl) = pRow.Value(1) Then
     pFeature.Value(intCityl) = pRow.Value(2)
     pFCursor.UpdateFeature pFeature
    end if
set prow=ptcursor.nextrow
loop

Set pFeature = pFCursor.NextFeature

Loop

But on this the second loop is not going back for every feature. How can I do that. Please help.