ArcGis 给数据库追加Domain

IWorkspaceDomainsPtr pWorkspaceDomain(pFeatureWorkspace);
IDomainPtr pDomain = pWorkspaceDomain->GetDomainByName(_T("GL_DomainName"));
if( !pDomain )
{
ICodedValueDomainPtr codedValueDomain(CLSID_CodedValueDomain) ;
pDomain = (IDomainPtr)codedValueDomain;
pDomain->PutFieldType( esriFieldTypeInteger );
pDomain->PutName(_T("GL_DomainName"));
pDomain->PutDescription(_T("Valid Domain "));
pDomain->PutMergePolicy(esriMPTDefaultValue);
pDomain->PutSplitPolicy(esriSPTDuplicate);
long lDomainID;
if( SUCCEEDED( pWorkspaceDomain->AddDomain( pDomain, &lDomainID ) ) )
return true;
else
return false;
}