EsbOtlAddAliasCombination

単一の別名テーブルに対するメンバーに別名の組合せを追加します。

構文

            EsbOtlAddAliasCombination
             (
            hOutline, hMember, pszAliasTable, pszAlias, pszCombination
            )
ByVal 
            hOutline
                   As Long
ByVal 
            hMember
                    As Long
ByVal 
            pszAliasTable
              As String
ByVal 
            pszAlias
                   As String
ByVal 
            pszCombination
             As String

パラメータ	説明
hOutline	アウトラインのコンテキスト・ハンドル。
hMember	別名の組合せを作成するメンバーのハンドル。
PszAliasTable	組合せの追加先の別名テーブル。このパラメータが""の場合、デフォルトの別名テーブルが使用されます。
pszAlias	別名。
PszCombination	別名に関連付けられたメンバーの組合せ。これは次元間メンバー・リストの場合もあります。

備考

メンバー・ハンドルは共有メンバーにできません。共有メンバーには別名は使用できません。

戻り値

正常終了の場合は0が戻されます。それ以外の場合は、次のいずれかの値が戻されます:

OTLAPI_BAD_ALIASTABLE
OTLAPI_ERR_ALIASSHARED
OTLAPI_ERR_ILLEGALCOMBOALIAS
OTLAPI_ERR_ILLEGALALIASSTRING
OTLAPI_ERR_DUPLICATEALIAS

例

         Declare Function EsbOtlAddAliasCombination Lib
"ESBOTLN" (ByVal hOutline As Long, ByVal hMember
As Long, ByVal pszAliasTable As String, ByVal pszAlias As String, ByVal 
pszCombination As String) As Long

Sub ESB_EsbOtlAddAliasCombination() 
Dim sts As Long
Dim Object As ESB_OBJDEF_T
Dim hOutline As Long
Dim MbrInfo As ESB_MBRINFO_T
Dim hMemberJan 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, 
    "Jan", hMemberJan) 
End If
If sts = 0 And hMemberJan <> 0 Then
   sts = EsbOtlAddAliasCombination(hOutline,
    hMemberJan, "Default", "alias combination",
    "Year->Market")
End If
End Sub