EsbOtlGetAttributeInfo

指定した属性メンバーまたは属性次元に関する属性情報を戻します。

構文

            EsbOtlGetAttributeInfo
             (
            hOutline
            , 
            Member
            , 
            AttrInfo
            )
ByVal 
            hOutline
             As Long
ByVal 
            Member
               As Long
      
            AttrInfo
             As ESB_ATTRIBUTEINFO_T

パラメータ	説明
hOutline	アウトラインのハンドル
Member	属性メンバーまたは属性次元のハンドル
AttrInfo	属性情報

備考

この関数はEsbGetAttributeInfo()と同様のものです。

戻り値

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

アクセス

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

例

         Sub ESB_OtlGetAttributeInfo()
        ' NOTE: 'Out' is a sub to print the output within quotes to a listbox or text box
Dim sts As Long
Dim OutAttrInfo As ESB_ATTRIBUTEINFO_T
Dim MbrName As String
Dim hCtx as long
        MbrName = InputBox("Enter Member Name")
        sts = EsbGetAttributeInfo(hCtx, MbrName, OutAttrInfo)
        If sts = 0 Then
                Select Case VarType(OutAttrInfo.Attribute)
                Case vbDouble
                        Out "Data Type    : Numeric(Double)"
                        Out "Data Value   : " & OutAttrInfo.Attribute
                        Out ""
                Case vbBoolean
                        Out "Data Type    : Boolean"
                        Out "Data Value   : " & OutAttrInfo.Attribute
                        Out ""
                Case vbDate
                        Out "Data Type    : Date"
                        Out "Data Value   : " & OutAttrInfo.DimName
                        Out ""
                Case vbString
                        Out "Data Type    : String"
                        Out "Data Value   : " & OutAttrInfo.Attribute
                        Out ""
                End Select
        Else
                Out "ESB_OtlGetAttributeInfo failed" & sts
                Exit Sub
        End If
End Sub