From 8e81281e87f64fbd98c33844d6e369b45849954f Mon Sep 17 00:00:00 2001 From: Antonio Linares Date: Mon, 30 Apr 2007 20:07:00 +0000 Subject: [PATCH] Improved IndexKey( n ) support --- harbour/contrib/adordd/adordd.prg | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) diff --git a/harbour/contrib/adordd/adordd.prg b/harbour/contrib/adordd/adordd.prg index f221456d93..c306fa6435 100644 --- a/harbour/contrib/adordd/adordd.prg +++ b/harbour/contrib/adordd/adordd.prg @@ -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