static function RSSaveRecord( oRS, aRecord, nRecNo )
local n
if oRS:AbsolutePosition != nRecNo
oRS:Move( nRecNo, 0 )
endif
for n = 1 to oRS:Fields:Count
TRY
if oRS:Fields[ n - 1 ]:Attributes != 90 // non updateable
oRS:Fields[ n - 1 ]:Value = aRecord[ n, 2 ]
endif
CATCH
END
next
oRS:Update()
return nil
Return to FiveWin para Harbour/xHarbour
Users browsing this forum: No registered users and 102 guests