minor change

2007-05-09 09:03:42 +00:00
parent d341084806
commit d0d1abe285
1 changed files with 5 additions and 1 deletions
--- a/harbour/contrib/adordd/adordd.prg
+++ b/harbour/contrib/adordd/adordd.prg
@@ -851,6 +851,10 @@ return s_aCatalogs[ nWA ]

 function HB_AdoRddGetRecordSet( nWA )

+   local oAreaData
+
   DEFAULT nWA TO Select()
   
-return USRRDD_AREADATA( nWA )[ 1 ]
+   oAreaData = USRRDD_AREADATA( nWA )
+   
+return If( oAreaData != nil, oAreaData[ 1 ], nil )