NIM036636 for No Product Found

Número de ID del error	NIM036636
Enviado	July 8, 2008
Última modificación	June 5, 2024
Relacionado con	No Product Found
Versión encontrada	9.2
Lenguaje del programa	VBA
Estado	Non-Reproducible

Información adicional

No Public Explanation

Solución alternativa

Add a layer from a valid workspace.---------------------------------------------------Public Sub AddShapeFile() Dim pWorkspaceFactory As IWorkspaceFactory Dim pFeatureWorkspace As IFeatureWorkspace Dim pFeatureLayer As IFeatureLayer Dim pMxDocument As IMxDocument Dim pMap As IMap 'Create a new ShapefileWorkspaceFactory object and open a shapefile folder Set pWorkspaceFactory = New ShapefileWorkspaceFactory Set pFeatureWorkspace = pWorkspaceFactory.OpenFromFile("<a href="file:C:/Student/igis1/World" target="_blank">C:\Student\igis1\World</a>", 0) 'Create a new FeatureLayer and assign a shapefile to it Set pFeatureLayer = New FeatureLayer Set pFeatureLayer.FeatureClass = pFeatureWorkspace.OpenFeatureClass("Country") <a href="http://pFeatureLayer.Name" target="_blank">pFeatureLayer.Name</a> = pFeatureLayer.FeatureClass.AliasName 'Add the FeatureLayer to the focus map Set pMxDocument = Application.Document Set pMap = pMxDocument.FocusMap pMap.AddLayer pFeatureLayerEnd Sub----------------------------------------------------