EsbLROGetMemberCombo

現在のLROのメンバー組合せリストから、n番目のメンバーを取得します。

構文

            EsbLROGetMemberCombo
             (
            hCtx, memberIndex, memberName
            )
ByVal 
            hCtx 
            As ESB_HCTX_T
ByRef 
            memberIndex 
            As ESB_ULONG_T
ByVal 
            memberName 
            As ESB_MBRNAME_T

パラメータ	説明
hCtx	VB APIコンテキスト・ハンドル。
memberIndex	戻されるメンバーのメンバー・リスト内の位置。
memberName	戻されるメンバーの名前。

備考

EsbLROGetMemberCombo()は、ESB_LRODESC_API_TのmemCombで戻されなかった、(リンク・オブジェクトに関連付けられているデータ・セルを識別する)メンバーの組合せを戻します。
hCtxに関連付けられているメモリー内のリストがLROのリストであることを確認するため、EsbLROListObjects()またはEsbLROGetObject()の後に、EsbLROGetMemberCombo()を呼び出してください。
EsbLROListObjects()の呼出し後、EsbGetNextItem()を呼び出す必要があります。すると、EsbGetNextItem()によってフェッチされた現在のLROに対して、ESbLROGetMemberCombo()が実行されます。
引き続きESB_LRODESC_API_TのmemCountを使用して、データ・セルを識別するメンバー組合せ内のメンバー名の数を調べることができます。例を参照してください。

戻り値

正常終了の場合は、memberNameにメンバー名が戻されます。正常終了しなかった場合は、現在のオブジェクトがLROタイプでないことを示す「-1」、または範囲外であることを示す「1」が戻されます。範囲外とは、memberIndexの位置にメンバーがないか、現在のアイテムにLROが存在していないことを意味します。「注意」を参照してください。

アクセス

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

例

         Declare Function EsbLROGetMemberCombo Lib "ESBAPIN" (ByVal hCtx As Long, _ 
   ByVal MemberIndex As Long, ByVal MemberName As String * ESB_MBRNAMELEN) As Long
   
   Sub ESB_LROGetMemberCombo()
   Dim userName   As String * ESB_USERNAMELEN
   Dim listDate   As Long
   Dim Count      As Integer
   Dim Desc       As ESB_LRODESC_API_T
   Dim i          As Integer
   Dim j          As Integer
   Dim CutOffDate As Date
   Dim MemberName As String * ESB_MBRNAMELEN
   
   Const ESB_REFERENCE_DATE = #1/1/70#
   userName                 = "admin"
   CutOffDate               = #8/1/97#          
   listDate                 = DateDiff("s", CutOffDate, ESB_REFERENCE_DATE)
   
   sts                      = EsbLROListObjects(hCtx, userName, listDate, Count)
   
   If sts = 0 Then
      For i = 1 To Count
         
         '**************************************
         '* Get the next LRO item from the list
         '**************************************
         sts = EsbGetNextItem(hCtx, ESB_LRO_TYPE, Desc)
         
         If sts = 0 Then
            For j = 1 To Desc.memCount
            
               '*************************************************************
               '* Get the jth member from the member list of the current LRO
               '*************************************************************
               sts = EsbLROGetMemberCombo(hCtx, j, MemberName)
            Next j
      Next i
   End If
End Sub