WinStudio
IWSIDOCollection interface
Returns a Boolean value indicating whether the current object is the last (or bottom) entry in a specified IDO collection.
object.IsEOF( )
Part |
Description |
object | Required. The name of a valid IDO collection object. |
A return value of:
Sub Main() Dim bIsLast As Boolean Dim bIsFirst As Boolean bIsFirst = ThisForm.CurrentIDOCollection.IsBOF() bIsLast = ThisForm.CurrentIDOCollection.IsEOF() If bIsLast = True Then Application.ShowMessage("The selected object is the last item.") ElseIf bIsFirst = True Then Application.ShowMessage("The selected object is the first item.") Else Application.ShowMessage("The selected object is not first or last.") End If End Sub