NIM036636 for No Product Found

Número de ID do Erro	NIM036636
Enviado	July 8, 2008
Última Modificação	June 5, 2024
Aplica-se à	No Product Found
Versão encontrada	9.2
Idioma do programa	VBA
Status	Non-Reproducible

Informações Adicionais

No Public Explanation

Solução Provisória

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----------------------------------------------------