EsbOtlDisassociateAttributeMember

属性メンバーと基本メンバーとの関連付けを解除します。

構文

            EsbOtlDisassociateAttributeMember
             (
            hOutline
            , 
            BaseMember
            , 
            AttributeMember
            )
ByVal 
            hOutline
                    As Long
ByVal 
            BaseMember
                  As Long
ByVal 
            AttributeMember
             As Long

パラメータ	説明
hOutline	アウトラインのハンドル
BaseMember	基本メンバーのハンドル
AttributeMember	属性メンバーのハンドル

備考

属性次元の基本次元との関連付けを解除すると、属性次元のすべてのメンバーと基本次元メンバーとの関連付けが解除されます。

戻り値

正常終了の場合はSTS = 0が戻されます。それ以外の場合、エラー・コードが戻されます。

アクセス

この関数を使用するのに、特別な権限は必要ありません。

例

         Sub ESB_OtlDisassociateAttributeMember()
Dim BaseMbr As Long
Dim AttributeMbr As Long
Dim sts as long
Dim hOutline as long
hOutline = ESB_OtlOpenOutline
                If hOutline = vbNull Then Out "ESB_OtlOpenOutline() failed: " & sts: Exit Sub
BaseMbr = ESB_OtlFindMember("Enter base member: ")
If BaseMbr = vbNull Then
Out "ESB_OtlGetMemberInfo() failed in ESB_OtlFindMember. " & sts: Exit Sub
AttributeMbr = ESB_OtlFindMember("Enter attribute member: ")
If AttributeMbr = vbNull Then Out "ESB_OtlGetMemberInfo() failed in ESB_OtlFindMember. " & sts: Exit Sub
                sts = EsbOtlDisassociateAttributeMember(hOutline, BaseMbr, AttributeMbr)
If sts = 0 Then Out "EsbOtlDisassociateAttributeMember failed " & sts: Exit Sub
                sts = EsbOtlDeleteMember(ghOutline, AttrMbr)
If sts <> 0 Then Out "EsbOtlDeleteMember failed" & sts: Exit Sub
' abstract sub to call EsbOtlVerifyOutline(), ESBOTLNriteOutline(), EsbOtlRestructure(),EsbUnlockObject() and
' EsbOtlCloseOutline() as neededà
tuckinoutline
End Sub