Set objLayer = Application.Map.Layers("Parcel") Dim pDS Set pDS = Application.Map.Layers("Parcel").DataSource Dim pRS Set pRS = pDS.Execute("SELECT * FROM PARCEL WHERE APN = 225112008") If (pRS is Nothing) Then MsgBox("No Record Found!") Exit Sub End If pRS.MoveFirst Do While Not pRS.EOF msgBox(pRS.Fields(3).Name & ": " & pRS.Fields(3).Value & vbnewline & pRS.Fields(5).Name & ": " & pRS.Fields(5).Value) pRS.MoveNext Loop
Los miembros registrados pueden publicar, seguir actualizaciones y más. ¿Nuevo aquí? Regístrate gratis.
Find useful guides, FAQs, and documents to help you navigate and make the most of Esri Community.