EsbOtlGetParent() returns the parent of a member.
EsbOtlGetParent (hOutline, hMember, phMember)
ByVal hOutline As Long
ByVal hMember As Long
phMember As Long
| hOutline | Outline context handle. |
| hMember | Handle of member to retrieve the parent of. |
| phMember | Return variable for the member handle of the parent of the hMember parameter. |
Returns 0 if successful.
Declare Function EsbOtlGetParent Lib
"ESBOTLW" (ByVal hOutline As Long, ByVal hMember As Long,
phMember As Long) As Long
Sub ESB_OtlGetParent()
Dim sts As Long
Dim Object As ESB_OBJDEF_T
Dim hOutline As Long
Dim hMemberProfit As Long
Dim hParent 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, "Profit",
hMemberProfit)
End If
If sts = 0 And hMemberProfit <> 0 Then
sts = EsbOtlGetParent(hOutline, hMemberProfit,
hParent)
End If
End Sub
EsbOtlGetChild()
EsbOtlGetNextSibling()
EsbOtlGetPrevSibling()
EsbOtlGetFirstMember()