EsbOtlFindAttributeMembers

指定されたショート名を持つすべての属性メンバーを戻します。

構文

            EsbOtlFindAttributeMembers
             (
            hOutline
            , 
            MemberName
            , 
            DimensionName
            , 
            Count
            , 
            MemberArray
            )
ByVal 
            hOutline
                   As Long
ByVal 
            MemberName
                 As String
ByVal 
            DimensionName
              As String
      
            Count
                      As Integer
      
            MemberArray
                As Variant
パラメータ説明

hOutline

アウトラインのハンドル

MemberName

属性のショート名

DimenisonName

属性次元名(オプション)

Count

戻されたメンバーの数

MemberArray

基本メンバーのハンドルの配列

備考

戻り値

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

アクセス

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

例

         Sub ESB_OtlFindAttributeMembers()
        Dim MemberName As String
        Dim DimensionName As String
        Dim hMember() As Long
        Dim Count As Integer
        Dim MbrArr As Variant
        Dim MbrInfo As ESB_MBRINFO_T
        Dim index As Integer
        ghOutline = ESB_OtlOpenOutline
        If ghOutline = vbNull Then Out "ESB_OtlOpenOutline() failed: " & sts: Exit Sub
        ' expecting return of handle to "caffeinated_true"
        MemberName = "true"
        ' "null" by default - dimension name is optional
        DimensionName = ""
        sts = EsbOtlFindAttributeMembers(ghOutline, MemberName, DimensionName, Count, MbrArr)
        ' sts = EsbOtlFindAttributeMembers(ghOutline, MemberName, Count, MbrArr)
        If sts = 0 Then
                Out "EsbOtlFindAttributeMembers passed " & sts
                Out "Count is : " & Count
                For index = 0 To Count - 1
                sts = EsbOtlGetMemberInfo(ghOutline, MbrArr(index), MbrInfo)
                Out "Member Name : " & MbrInfo.szMember
                Next index
        Else
                Out "EsbOtlFindAttributeMembers failed " & sts
                Exit Sub
        End If
End Sub

関連トピック