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

Improved IndexKey( n ) support

Browse Source
This commit is contained in:
Antonio Linares
2007-04-30 20:07:00 +00:00
parent 8e23816bbc
commit 8e81281e87
1 changed files with 5 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -430,7 +430,11 @@ STATIC FUNCTION ADO_ORDINFO( nWA, iIndex, aOrderInfo )
do case
case iIndex == UR_ORI_TAG
aOrderInfo[ UR_ORI_RESULT ] = s_aCatalogs[ nWA ]:Tables( s_aTableNames[ nWA ] ):Columns( aOrderInfo[ UR_ORI_TAG ] ):Name
if aOrderInfo[ UR_ORI_TAG ] < s_aCatalogs[ nWA ]:Tables( s_aTableNames[ nWA ] ):Columns:Count
aOrderInfo[ UR_ORI_RESULT ] = s_aCatalogs[ nWA ]:Tables( s_aTableNames[ nWA ] ):Columns( aOrderInfo[ UR_ORI_TAG ] ):Name
else
aOrderInfo[ UR_ORI_RESULT ] = ""
endif
endcase
RETURN SUCCESS