For loop problem

DaveCouture — Sun, 12 Dec 2021 16:30:21 GMT

I'm trying to figure out what is wrong with my For loop. To make it easy, I stripped down the code and this is what it supposed to do:

- Make sure there are Single Tables in TOC (if true, continue)
- Check if the Subdivision Plans table is in TOC.
- If Subdivision Plans table is in TOC, show "Subdivision Plans Table Found" message
- If Subdivision Plans table is not in TOC, show "Subdivision Plans Table Not Found" message

If the Subdivision Plans table is in the TOC, everything works as it should. But, if the Subdivision Plans table isn't found, it goes to the Catch Exception error, instead of the "Subdivision Plans Table Not Found" message. Why?

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Try
            
            ' Variables declarations 
            Dim ANBLS As String = Me.ComboBox1.Text.Trim
            Dim pMap As IMap = My.ArcMap.Document.ActiveView
            Dim queryFilter As String = "FileNumber = '" + ANBLS + "'"
            Dim tableName As String = "CSJGISSDE.GISDATA.Subdivision_Plans_Table"
            Dim pStTabColl As IStandaloneTableCollection
            Dim foundTable As Integer = 0
            pStTabColl = pMap

            ' Check if there are tables are in TOC
            If pStTabColl.StandaloneTableCount <> 0 Then

                ' Check if Subdivision Plans table is in TOC
                For i As Integer = 0 To pStTabColl.StandaloneTableCount
                    If (pStTabColl.StandaloneTable(i).Name = tableName) Then
                        MsgBox("Subdivision Plans Table found")
                        foundTable = 1
                        Exit For
                    End If
                Next i
            Else
                MsgBox("No tables found")
                Return
            End If

            ' Subdivision Plans Table Not found in the TOC
            If foundTable = 0 Then
                MsgBox("Subdivision Plans Table Not found")
                Return
            End If


            ' If all fails...
        Catch ex As Exception
            MsgBox("This action cannot be done. Save your project, then restart ArcMap.")
        End Try
 End Sub

Re: For loop problem

NeilClemmons — Mon, 16 Jul 2012 12:08:39 GMT

For i As Integer = 0 To pStTabColl.StandaloneTableCount

The table index begins at 0, therefore you must stop your loop at Count -1.

For i As Integer = 0 To pStTabColl.StandaloneTableCount -1

Re: For loop problem

DaveCouture — Mon, 16 Jul 2012 12:21:44 GMT

Newbie mistake..haha! Thanks Neil!!

topic Re: For loop problem in ArcObjects SDK Questions

For loop problem

Re: For loop problem

Re: For loop problem