fivedev/harbour-core
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Improved ADO_CLEARREL()

Browse Source
This commit is contained in:
Antonio Linares
2007-05-09 13:28:12 +00:00
parent 342f481007
commit e4c5ff74c2
1 changed files with 5 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
harbour/contrib/adordd/adordd.prg
View File

@@ -563,8 +563,11 @@ return SUCCESS
static function ADO_CLEARREL( nWA )
local nKeys := s_aCatalogs[ nWA ]:Tables( s_aTableNames[ nWA ] ):Keys:Count
local cKeyName
local nKeys := 0, cKeyName
if s_aCatalogs[ nWA ]:Tables( s_aTableNames[ nWA ] ):Keys != nil
nKeys = s_aCatalogs[ nWA ]:Tables( s_aTableNames[ nWA ] ):Keys:Count
endif
if nKeys > 0
cKeyName = s_aCatalogs[ nWA ]:Tables( s_aTableNames[ nWA ] ):Keys( nKeys - 1 ):Name