> lcSql = " Select *" ; > + " FROM UDFields" ; > > UDFCursor = SYS(2015) && UDFields Cursor > IF USED(UDFCursor) > TABLEREVERT(.t.,UDFCursor) > ENDIF > lnRes = SQLEXEC( thisform.nCon, lcSql, "UDFCursor" ) > IF lnRes > 0 > q = RECCOUNT() > IF q > 0 && record available > SELECT UDFCursor > .Grid1.recordsource = (UDFCursor) > .Grid1.refresh() >>