EsbOtlAddMember

アウトラインにメンバーを追加し、メンバーの属性を設定します。

構文

            EsbOtlAddMember
             (
            hOutline, pMemberInfo, hParent, hPrevSibling, phMember
            )
ByVal 
            hOutline
                 As Long
      
            pMemberInfo
              As ESB_MBRINFO_T
ByVal 
            hParent
                  As Long
ByVal 
            hPrevSibling
             As Long
      
            phMember
                 As Long
         

備考

戻り値

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

例

         Declare Function EsbOtlAddMember Lib "ESBOTLN"
(ByVal hOutline As Long, pMemberInfo As ESB_MBRINFO_T,
ByVal hParent As Long, ByVal hPrevSibling As Long,
phMember As Long) As Long

Sub ESB_OtlAddMember()
Dim sts As Long
Dim Object As ESB_OBJDEF_T
Dim hOutline As Long
Dim MbrInfo As ESB_MBRINFO_T
Dim hMemberProfit As Long
Dim hNewMember 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, 
    "Profit", hMemberProfit) 
End If
If sts = 0 And hMemberProfit <> 0 Then
   MbrInfo.szMember = "Inventory"
    sts = EsbOtlAddMember(hOutline, MbrInfo,
     ESB_NULL, hMemberProfit, hNewMember)
End If
End Sub
      

関連トピック

• EsbOtlAddDimension
• EsbOtlDeleteMember
• EsbOtlDeleteDimension
• EsbOtlSetMemberInfo
• EsbOtlFindMember