WinStudio
IWSIDOCollection interface
Navigates to the first object in a specified IDO collection (the top entry) and returns a Boolean value indicating whether the navigation was successful.
object.First( )
Part |
Description |
object | Required. A reference to an IDO collection object. |
A return value of:
This method navigates objects in the IDO collection but does not set the focus of the form to the first object.
This example assumes you are using a form with both primary and secondary collections. It navigates to the first record, first on the primary collection, and then on the secondary collection, both times displaying the same message afterward (assuming the navigation is successful in both cases).
TIP: You can tell that the navigation has been successful also by watching the current row indicator (pointer) for each collection.
Sub Main() Dim oCache As IWSIDOCollection oCache = ThisForm.CurrentIDOCollection If oCache.First() Then Application.ShowMessage("The system navigated to the first record." _ & vbLf & "The index number is now: " & _ oCache.GetCurrentObjectIndex()) Else Application.ShowMessage("Navigation failed!") End If ThisForm.CurrentIDOCollection = ThisForm.GetSecondaryIDOCollection(2) oCache = ThisForm.CurrentIDOCollection If oCache.First() Then Application.ShowMessage("The system navigated to the first record." _ & vbLf & "The index number is now: " & _ oCache.GetCurrentObjectIndex()) Else Application.ShowMessage("Navigation failed!") End If End Sub