Dim pEnumDataSet As IEnumDataset
Dim pDataSet As Idataset
Dim pVersionedObject As IVersionedObject
On Error GoTo errHandle:
DataSet_Unregister = "" '过程错误标志 ""正确,"F"错误
If Not pGISDataset Is Nothing Then
Set pVersionedObject = pGISDataset
If pVersionedObject.IsRegisteredAsVersioned Then
Debug.Print "GIS图层正在取消注册版本"
pVersionedObject.RegisterAsVersioned False
Debug.Print "GIS图层取消注册成功"
Else
Debug.Print "GIS图层已经未注册状态"
End If
Set pVersionedObject = Nothing
End If
Exit Function
errHandle:
If Err.Number > 0 Then
DataSet_Unregister = "F"
MsgBox Err.Description, vbInformation, "错误提示"
Else
DataSet_Unregister = "F"
MsgBox "取消版本注册失败" & vbCr & vbCr & _
Err.Description, vbInformation, "错误提示"
End If
End Function
(提示:Unregister必须使用该数据的创建用户进行操作)
http://www.gispark.com/html/develop/2006/0707/24.html