Latest Contributions by DaveCouture

I'm trying to build a form that would assign a value to a field, for the selected features, during an edit session.  The user would create a new feature (in Edit mode) and the form would fill the attribute table. If the user is not in edit mode, the table won't be updated. I'm kinda stuck there (vb.NET): Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click         Dim pMxDoc As IMxDocument         Dim pLayer As ILayer         Dim pFLayer As IFeatureLayer         Dim pFeatClass As IFeatureClass         Dim pMap As IMap         Dim pCursor As ICursor         Dim pFSel As IFeatureSelection         Dim pSelSet As ISelectionSet2          pMxDoc = My.ArcMap.Document         pMap = pMxDoc.FocusMap         pLayer = pMxDoc.SelectedLayer         pFLayer = pLayer         pFeatClass = pFLayer.FeatureClass         pCursor = pFeatClass.Update(Nothing, True)         pFSel = pLayer         pSelSet = pFSel.SelectionSet         pSelSet.Update(Nothing, False, pCursor)          Do Until pFSel Is Nothing             pFSel.Value(pFSel.Fields.FindField("Source")) = "Coordinate"             pFSel = pFSel.Next         Loop  End Sub ... View more

After selecting a feature through a query, I'd like a message box to pop up with 2 field values. This is what I have (in red): Public Sub SelectMapFeaturesByAttributeQuery(ByVal activeView As IActiveView, ByVal featureLayer As IFeatureLayer, ByVal whereClause As System.String)         If activeView Is Nothing OrElse featureLayer Is Nothing OrElse whereClause Is Nothing Then             Return         End If         Dim featureSelection As IFeatureSelection = TryCast(featureLayer, IFeatureSelection) ' Dynamic Cast         ' Set up the query         Dim queryFilter As IQueryFilter = New QueryFilterClass         queryFilter.WhereClause = whereClause         ' Invalidate only the selection cache. Flag the original selection         activeView.PartialRefresh(esriViewDrawPhase.esriViewGeoSelection, Nothing, Nothing)         ' Perform the selection         featureSelection.SelectFeatures(queryFilter, esriSelectionResultEnum.esriSelectionResultNew, False)         ' If PID found, Flag the new selection         If featureSelection.SelectionSet.Count() = 0 Then             MsgBox("Can't find the PID")         Else             activeView.PartialRefresh(esriViewDrawPhase.esriViewGeoSelection, Nothing, Nothing)         End If         ' Zoom to selected feature, if checkmarked         If CheckBox1.CheckState = 1 Then             Dim pUID As New UID             pUID.Value = "esriArcMapUI.ZoomToSelectedCommand"             My.ArcMap.Application.Document.CommandBars.Find(pUID).Execute()         End If         ' Display Owner's Name and PAN in message box         Dim cursor As IFeatureCursor         Dim feature As IFeature         Dim patspan As String         Dim taxname As String         featureSelection.SelectionSet.Search(Nothing, False, cursor)         feature = cursor.NextFeature         patspan = feature.Fields.FindField("patspan")         taxname = feature.Fields.FindField("taxname")         Do Until feature Is Nothing             MsgBox("PAN: " + feature.Value(patspan) + vbNewLine + "Owner's Name: " + feature.Value(taxname))             feature = cursor.NextFeature         Loop   End Sub End Class ... View more

I'm trying to add a count to a Query, so I can pop a message if the count = 0 (didn't find the record). This is what I have: Public Sub SelectMapFeaturesByAttributeQuery(ByVal activeView As IActiveView, ByVal featureLayer As IFeatureLayer, ByVal whereClause As System.String)         If activeView Is Nothing OrElse featureLayer Is Nothing OrElse whereClause Is Nothing Then             Return         End If         Dim featureSelection As IFeatureSelection = TryCast(featureLayer, IFeatureSelection) ' Dynamic Cast         ' Set up the query         Dim queryFilter As IQueryFilter = New QueryFilterClass         queryFilter.WhereClause = whereClause         ' Invalidate only the selection cache. Flag the original selection         activeView.PartialRefresh(esriViewDrawPhase.esriViewGeoSelection, Nothing, Nothing)         ' Perform the selection         featureSelection.SelectFeatures(queryFilter, esriSelectionResultEnum.esriSelectionResultNew, False)                ' Perform query count         Dim value As Integer = 0         value = featureLayer.GetFeatureCount(queryFilter)         If value = 0 Then             MsgBox("can't find PID")         End If         ' Flag the new selection         activeView.PartialRefresh(esriViewDrawPhase.esriViewGeoSelection, Nothing, Nothing)     End Sub ... View more