この関数は、メンバー属性情報を設定します。
構文
EsbOtlSetMemberInfo
(
hOutline, hMember, pInfo
)
ByVal
hOutline
As Long
ByVal
hMember
As Long
pInfo
As ESB_MBRINFO_T
| パラメータ | 説明 |
|---|---|
hOutline |
アウトラインのコンテキスト・ハンドル。 |
hMember |
属性を設定するメンバーのハンドル。 |
pInfo |
メンバー情報の構造体。 |
備考
EsbOtlGetMemberInfo()を呼び出して、ESB_MBRINFO_T構造体の各フィールドを初期化する必要があります。
属性:
ESB_MBRINFO_T構造体の、次の2つのフィールドは属性専用です:
|
データ型 |
フィールド |
説明 |
|---|---|---|
|
As Variant |
Attribute |
属性値: 属性次元またはゼロレベル(リーフ・ノード)の属性メンバーについては、次のデータ型のいずれかになります:
属性次元ではなく、属性メンバーの場合:
|
|
ESB_ATTRMBRDT_AUTOは、メンバーを追加する場合にのみ使用してください。「属性メンバーの追加に関する注意」を参照してください。 | ||
|
As Integer |
IsAttributed |
メンバーに属性が関連付けられているかどうかを示します。 |
ESB_MBRINFO_T構造体の、次の2つのフィールドの値は属性専用です:
|
データ型 |
フィールド |
説明 |
|---|---|---|
|
As Integer |
usCategory |
次の次元カテゴリのいずれかになります:
|
|
As Integer |
usStorageCategory |
次の次元ストレージ・カテゴリのいずれかになります:
|
戻り値
正常終了の場合は0が戻されます。それ以外の場合は、次のいずれかの値が戻されます:
OTLAPI_BAD_CONSOL
OTLAPI_BAD_MBRNAME
OTLAPI_BAD_MEMBER
OTLAPI_ERR_ADDNAMEUSED
OTLAPI_ERR_CURTOOMANYDIMS
OTLAPI_ERR_BADSHARE
OTLAPI_ERR_BADSKIP
OTLAPI_ERR_BADSTORAGE
OTLAPI_ERR_BADSTORAGECATEGORY
OTLAPI_ERR_BADTIMEBAL
OTLAPI_ERR_ILLEGALBOOLEAN
OTLAPI_ERR_ILLEGALCURRENCY
OTLAPI_ERR_ILLEGALDATE
OTLAPI_ERR_ILLEGALNAME
OTLAPI_ERR_ILLEGALNUMERIC
OTLAPI_ERR_ILLEGALTAG
OTLAPI_ERR_LEAFLABEL
OTLAPI_ERR_NOSHAREPROTO
OTLAPI_ERR_NOTIMEDIM
OTLAPI_ERR_SHARENOTLEVEL0
例
Declare Function EsbOtlSetMemberInfo Lib
"ESBOTLN" (ByVal hOutline As Long, ByVal hMember As Long,
pInfo As ESB_MBRINFO_T) As Long
Sub ESB_OtlSetMemberInfo()
Dim sts As Long
Dim Object As ESB_OBJDEF_T
Dim hOutline As Long
Dim MbrInfo As ESB_MBRINFO_T
Dim hFeb 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, "Feb", hFeb)
End If
If sts = 0 And hFeb <> 0 Then
MbrInfo.fTwoPass = ESB_TRUE
MbrInfo.fExpense = ESB_TRUE
MbrInfo.usTimeBalance = ESB_TIMEBAL_AVG
MbrInfo.usSkip = ESB_SKIP_ZEROS
MbrInfo.usConsolidation = ESB_UCALC_MULT
sts = EsbOtlSetMemberInfo(hOutline, hFeb, MbrInfo)
End If
End Sub
関連トピック