EsbOtlGetNextSharedMember() returns the member handle to the next shared member of the specified member.
EsbOtlGetNextSharedMember (hOutline, hMember, phMember)
ByVal hOutline As Long
ByVal hMember As Long
phMember As Long
| hOutline | Outline context handle. |
| hMember | Member to find the next shared member for. |
| phMember | Return variable for the next shared member in the outline. This parameter is ESB_NULL if there are no more shared members. |
Returns 0 if successful.
Declare Function EsbOtlGetNextSharedMember Lib
"ESBOTLW" (ByVal hOutline As Long, ByVal hMember As Long,
phMember As Long) As Long
Sub ESB_OtlGetNextSharedMember()
Dim sts As Long
Dim Object As ESB_OBJDEF_T
Dim hOutline As Long
Dim hMargin As Long
Dim hShared 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, "Margin", hMargin)
End If
If sts = 0 Then
Do While sts = 0 And hMargin <> 0
sts = EsbOtlGetNextSharedMember(hOutline, hMargin, hShared)
hMargin = hShared
hShared = ESB_NULL
Loop
End If
End Sub