POST
|
I have a clause set filter that filters my data by city or county. When I enable the filter on automatically, all of the data is filtered out of the map. When I make a selection in either drop down, the filtered data appears appropriately. But when I change the filter back to "All", everything is removed again. It is as if the "All" drop down option really means "None". And if I then turn the filter off, all of the data appears. We have a nearly identical map with the exact same filter set up, and it works as expected. So it seems strange that it works well in one application, but not in another. They are both single point layers. I would appreciate any ideas! Thanks.
... View more
07-14-2020
12:22 PM
|
0
|
1
|
688
|
POST
|
Hi, I am trying to auto save edits using VBA in Arcmap 9.3.1 and can't get the listening events to work correctly. When I start an edit session, i click on a button that begins listening, and my save procedure is triggered when the sketch is finished, but it only works for the first edit I make. Obviously I am missing something with the listener, but cant figure it out. Please help! Jenny Here is what I have: Option Explicit Private m_pEditor As IEditor Private WithEvents EditorEvents As Editor Private pEditLayers As IEditLayers Private Sub startlistener_Click() ' This is a button that calls the start listening to edit events, this is probably ' a button you will want on your mxd StartListeningToEditEvents End Sub Private Function startlistener_ToolTip() As String startlistener_ToolTip = "startlistener" End Function Public Sub StartListeningToEditEvents() 'this sub actually starts the listener Set EditorEvents = Application.FindExtensionByName("ESRI Object Editor") MsgBox ("Listener is now Started") End Sub Private Sub EditorEvents_OnSketchFinished() Dim pApp As IApplication Dim pEditor As IEditor Dim pID As New UID pID = "esriCore.Editor" Set pApp = Application Set pEditor = pApp.FindExtensionByCLSID(pID) Set pEditLayers = m_pEditor Set EditorEvents = m_pEditor 'If pEditor.EditState = esriStateEditing Then If pEditor.HasEdits Then 'pID = "esriCore.Editor" 'Set m_pEditor = Application.FindExtensionByCLSID(pID) 'Set m_pEditLayers = m_pEditor 'Set EditorEvents = m_pEditor Dim pSaveEdits As ICommandItem pID.Value = "{59D2AFD2-9EA2-11D1-9165-0080C718DF97}" Set pSaveEdits = Application.Document.CommandBars.Find(pID) pSaveEdits.Execute End If 'End If End Sub
... View more
12-09-2011
07:41 AM
|
0
|
1
|
229
|
Online Status |
Offline
|
Date Last Visited |
2 weeks ago
|