EsbOtlQueryAttributes

指定した属性メンバーまたは属性次元についてのメンバー情報にクエリーを行います。

構文

            EsbOtlQueryAttributes
             (
            hOutline
            , 
            AttrQuery
            , 
            Count
            , 
            MemberArray
            )
ByVal 
            hOutline
                As Long
      
            AttrQuery
               As ESB_ATTRIBUTEQUERY_T
      
            Count
                   As Long
      
            MemberArray
             As Variant

パラメータ	説明
hOutline	アウトラインのハンドル
AttrQuery	クエリーを定義する構造体
Count	戻されたメンバーのハンドルの数
MemberArray	戻されたメンバーのハンドルの配列

備考

この関数を呼び出す前に、EsbOpenOutlineQuery()を呼び出してクエリー・モードでアウトラインを開いてください。

アクセス

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

例

                 Sub ESB_OtlQueryAttributes()
        Dim OutAttrInfo As ESB_ATTRIBUTEINFO_T
        Dim InAttrQuery As ESB_ATTRIBUTEQUERY_T
        Dim MbrInfo As ESB_MBRINFO_T
        Dim index As Integer
        Dim test As Integer
        Dim Count As Long
        Dim sts As Long
        Dim Dummy As String
        Dim MbrName As String
        Dim attribdtvar As Variant
        Dim OutMemberArray As Variant
        InAttrQuery.InputMember = "Product"
        InAttrQuery.InputMemberType = ESB_STANDARD_DIMENSION
        InAttrQuery.OutputMemberType = ESB_ATTRIBUTE_DIMENSION
        InAttrQuery.Operation = ESB_ALL
        InAttrQuery.Attribute = ""
        sts = EsbOtlQueryAttributes(ghOutline, InAttrQuery, Count, OutMemberArray)
        If sts = 0 Then
                Out "attribute query Count is : " & Count
                Out "EsbOtlGetMemberInfo passed"
                For index = 0 To Count - 1
                        sts = EsbOtlGetMemberInfo(ghOutline, OutMemberArray(index), MbrInfo)
                        If sts = 0 Then
                                Out "MbrName   : " & MbrInfo.szMember
                        Else
                        Out "EsbOtlGetMemberInfo Failed: " & sts
                        End If
                Next index
        Else
                Out "EsbOtlQueryAttributes failed: " & sts
        End If
End Sub