如何移动一个featureclass从一个DataSet到另一个DataSet中去

<P>如题。</P>
<P>我试用了IDatasetContainer的AddDataset。</P>
<P>但是报错，高手指点一下。</P>

<P>自己贴个答案。呵呵。</P><P>决定从今以后好好阅读以下ArcGIS Developer Help</P><P>'*********************************************************************************
'** 函数名：MoveFeatureClassToDataSet
'** 输  入：   ByVal pFeatureCl   ByVal pDat   ByVal bStandAlone
'** 输  出：
'** 功能描述：可以将一个featureclass移动另一个Dataset下，前提是空间参考相同
'**           当bStandAlone为True时，将FeatureClass变成游离态
'** 全局变量：
'** 调用模块：
'** 作  者：Steve
'** 日 期：2005-05-10
'** 修改者：Steve
'** 日 期：2005-05-10
'** 版  本：1.0
'*********************************************************************************
Public Function MoveFeatureClassToDataSet(ByVal pFeatureClass As FeatureClass, ByVal pDataSet As IDataset, Optional bStandAlone As Boolean = False) As Boolean
    On Error GoTo ERRHANDLER
    Dim pFeatureContainer As IDatasetContainer
    Dim pTempDataSet As IDataset
    
    If bStandAlone = False Then
        Set pFeatureContainer = pDataSet
    Else
        Set pFeatureContainer = pDataSet.Workspace
    End If
    
    Set pTempDataSet = pFeatureClass
    pFeatureContainer.AddDataset pTempDataSet
    
    MoveFeatureClassToDataSet = True
    Exit Function</P><P>ERRHANDLER:
    MsgBox "过程出错: MoveFeatureClassToDataSet" ; vbCrLf ; _
    "Error #" ; Err.Number ; ": " ; Err.Description, _
    vbCritical + vbOKOnly, App.Title
End Function</P>

<P>历害,佩服.</P>

<P>哈哈，还是要多看看develope help</P><P>博大精深。</P>

像搂住学习

<P>很好的风格</P><img src="images/post/smile/dvbbs/em01.gif" />