NIM036636 for No Product Found

Bug-ID-Nummer	NIM036636
Eingereicht	July 8, 2008
Zuletzt geändert	June 5, 2024
Gilt für	No Product Found
Gefunden in Version	9.2
Programmsprache	VBA
Status	Non-Reproducible

Zusätzliche Informationen

No Public Explanation

Workaround

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