アウトラインからメンバーを削除します。
構文
EsbOtlDeleteMember
(
hOutline, hMember
)
ByVal
hOutline
As Long
ByVal
hMember
As Long
| パラメータ | 説明 |
|---|---|
hOutline |
アウトラインのコンテキスト・ハンドル。 |
hMember |
削除するメンバーのハンドル。 |
備考
メンバーのすべての子孫が削除されます。
メンバーおよびその子孫のすべての共有メンバーが削除されます。
共有メンバーの場合、指定されたメンバーのみ削除されます。
次元を削除するには、この呼出しまたはEsbOtlDeleteDimension()を使用します。EsbOtlDeleteDimension()では、データベースの再構築時に他の次元に使用されるデータ値を含むメンバーを、削除された次元から選択できるという利点があります。EsbOtlDeleteMember()を使用する場合、削除された次元の上位メンバー(次元)のデータ値が使用されます。
戻り値
正常終了の場合は0が戻されます。それ以外の場合は、次のいずれかの値が戻されます:
OTLAPI_ERR_LEAFLABEL
OTLAPI_ERR_NOTIMEDIM
例
Declare Function EsbOtlDeleteMember Lib
"ESBOTLN" (ByVal hOutline As Long, ByVal
hMember As Long) As Long
Sub ESB_OtlDeleteMember()
Dim sts As Long
Dim Object As ESB_OBJDEF_T
Dim hOutline As Long
Dim hCOGS As Long
Object.hCtx = hCtx
Object.Type = ESB_OBJTYPE_OUTLINE
Object.AppName = "Sample"
Object.DbName = "Basic"
Object.FileName = "Basic"
sts = EsbOtlOpenOutline(hCtx, Object,
ESB_YES, ESB_YES, hOutline)
If sts = 0 Then
sts = EsbOtlFindMember(hOutline, "COGS", hCOGS)
End If
If sts = 0 And hCOGS <> 0 Then
sts = EsbOtlDeleteMember(hOutline, hCOGS)
End If
End Sub
関連トピック