フィーチャクラスからワークスペースを取得

 2016/9/1 (木)    

Dim pFeatureClass As IFeatureClass
Set pFeatureClass = pFeatureLayer.FeatureClass
 
Dim pDataset As IDataset
Set pDataset = pFeatureClass
 
Dim pWorkspace As IWorkspace
Set pWorkspace = pDataset.Workspace

Copyright© WINGFIELD since1981 , 2018 All Rights Reserved.