EsbOtlDisassociateAttributeDimension

属性次元と基本次元との関連付けを解除します。

構文

            EsbOtlDisassociateAttributeDimension
             (
            hOutline
            , 
            BaseDimension
            , 
            AttributeDimension
            )
ByVal 
            hOutline
                       As Long
ByVal 
            BaseDimension
                  As Long
ByVal 
            AttributeDimension
             As Long

パラメータ	説明
hOutline	アウトラインのハンドル
BaseDimension	基本次元のハンドル
AttributeDimension	属性次元のハンドル

備考

属性次元の基本次元との関連付けを解除すると、属性次元のすべてのメンバーと基本次元メンバーとの関連付けが解除されます。
関連付けを解除された属性次元は、確認されてディスクに書き込まれるときにアウトラインに保持されません。この状況に対処するために推奨されるのは、関連付けを解除された次元をアウトラインから削除することです。

戻り値

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

アクセス

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

例

                 Sub ESB_OtlDisAssociateAttributeDimension()
                ' NOTE: 'Out' is a sub to print the output within quotes to a listbox or text box
                Dim sts as long
                Dim hOutline as long
Dim BaseMbr As Long
Dim AttrMbr As Long
hOutline = ESB_OtlOpenOutline
If hOutline = vbNull Then Out "ESB_OtlOpenOutline() failed: " & sts: Exit Sub
BaseMbr = ESB_OtlFindMember("Enter base dimension: ")
If BaseMbr = vbNull Then MsgBox "ESB_OtlDisAssociateAttributeDimension() failed.": Exit Sub
                AttrMbr = ESB_OtlFindMember("Enter attribute dimension: ")
                If AttrMbr = vbNull Then MsgBox "ESB_OtlDisAssociateAttributeDimension() failed.": Exit Sub
                sts = EsbOtlDisassociateAttributeDimension(ghOutline, BaseMbr, AttrMbr)
                sts = EsbOtlDeleteDimension(ghOutline, AttrMbr, "")
                If sts <> 0 Then
                                Out "EsbOtlDeleteDimension failed" & sts: Exit Sub
                Else
                                Out "EsbOtlDeleteDimension succeeded: " & sts
                End If
' abstract sub to call EsbOtlVerifyOutline(), ESBOTLNriteOutline(), EsbOtlRestructure(),EsbUnlockObject() and
' EsbOtlCloseOutline() as neededà
tuckinoutline
                If sts <> 0 Then Out "EsbOtlDisassociateAttributeDimension failed: " & sts: Exit Sub
End Sub