NIM000180 for No Product Found

Número de ID do Erro	NIM000180
Enviado	October 28, 2005
Última Modificação	June 5, 2024
Aplica-se à	No Product Found
Versão encontrada	9.1
Status	Will Not Be Addressed

Informações Adicionais

No Public Explanation

Solução Provisória

Copy the fields collection into a new fields collection. See the code below. Alternatively, create the fields collection from scratch. This is better as it will account for fully qualified field names like sde.username.fieldname.Private Sub MakeScratchCopyb1() Dim pMxDoc As IMxDocument Dim pMap As IMap Dim pFlayer As IFeatureLayer Dim pFC As IFeatureClass ' creates a scratch featureclass Set pMxDoc = Application.Document Set pMap = pMxDoc.FocusMap Set pMxDoc = Application.Document Dim pInFC As IFeatureClass Set pFlayer = pMxDoc.SelectedLayer Set pInFC = pFlayer.FeatureClass 'set up the scratch work area Dim pSWSF As IScratchWorkspaceFactory Set pSWSF = New ScratchWorkspaceFactory Dim pFWS As IFeatureWorkspace Set pFWS = pSWSF.DefaultScratchWorkspace Dim pFields As IFields Dim i As Integer Set pFields = New Fields Dim pField As IField Dim pFieldsEdit As IFieldsEdit Set pFieldsEdit = pFields For i = 0 To pInFC.Fields.FieldCount - 1 Set pField = pInFC.Fields.Field(i) pFieldsEdit.AddField pField Next i 'create our new scratch featureclass based on our input featureclass Dim pScratchFC As IFeatureClass Set pScratchFC = pFWS.CreateFeatureClass("QuarterQuarter", pFields, Nothing, Nothing, esriFTSimple, "SHAPE", "") End Sub