Click Method
Object:tstoolbar.cmdNext
Expand/Collapse source code of procedure cmdNext.Click Source Code
LOCAL lnResult
lnResult = _screen.ActiveForm.Next()
DO CASE
  CASE lnResult = FILE_EOF
    this.Parent.Refresh("EOF")
  CASE lnResult = FILE_OK
    this.Parent.Refresh()
ENDCASE