MoveLast Method Example

The following example is a script associated with a command button, that, when clicked, makes the last row of the record set retrieved by the Data ObjectvxData1 the current row.

Private Sub CommandButton1_Click()

vxData1.MoveLast

End Sub

NOTES (CIMPLICITY USERS ONLY):

• The name of the subroutine shown here follows standard VBA naming convention, which does not apply to CimEdit Basic script language.
• In CIMPLICITY, the following additional code must precede the first reference of vxData1 in its scope:

Dim vxData1 As Object
Set vxData1 = CimGetScreen.Object.Objects.Item("vxData1").OleObject