>Function RsToCursor( oRs, cAlias ) > > > LOCAL loCursor, lcCursor, lcAlias > Try > lcCursor = Sys(2015) > lcAlias=IIF( Type('cAlias') = 'C', cAlias, Sys(2015) ) > loCursor = CREATEOBJECT("CursorAdapter") > WITH loCursor > > .DataSourceType="ADO" > .Alias = lcCursor > .CURSORFILL(.F., .F., 0, oRs) > > ENDWITH > > If Used(lcCursor) > Select * From (lcCursor) Into Cursor (lcAlias) READWRITE > EndIf > > Catch > Finally > loCursor = null > loRs=null > EndTry > > Return Iif( Used(lcAlias), 1, -1 ) > >EndFunc > >