From 3d10e2acfc21613399b2e0fae237204b904a405f Mon Sep 17 00:00:00 2001 From: Antonio Linares Date: Sun, 13 May 2007 07:19:34 +0000 Subject: [PATCH] Improved ADO_PUTVALUE() --- harbour/contrib/adordd/adordd.prg | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/harbour/contrib/adordd/adordd.prg b/harbour/contrib/adordd/adordd.prg index 2078d1c5e5..34f1187399 100644 --- a/harbour/contrib/adordd/adordd.prg +++ b/harbour/contrib/adordd/adordd.prg @@ -453,7 +453,7 @@ static function ADO_PUTVALUE( nWA, nField, xValue ) local aWAData := USRRDD_AREADATA( nWA ) local oRecordSet := aWAData[ WA_RECORDSET ] - if ! aWAData[ WA_EOF ] + if ! aWAData[ WA_EOF ] .and. oRecordSet:Fields( nField - 1 ):Value != xValue oRecordSet:Fields( nField - 1 ):Value := xValue TRY oRecordSet:Update()