Creating customīs indexes in ADSThis is a discussion on Creating customīs indexes in ADS within the xharbour forums in Programming Languages category; Hi. Please, what I have to do to create customs keys using rdd ADSCDX and xharbour? Using rdd DBFCDX I do: Code: PROCEDURE Main USE arq1 VIA "DBFCDX" INDEX ON CODIGO TAG CODIGO TO arq101 INDEX ON SPACE( 20 ) TAG NAME TO arq1xx CUSTOM USE arq2 NEW VIA "DBFCDX" INDEX ON CODIGO + COD_PERC TAG PERC TO arq201 SELE arq1 SET ORDER TO ORDNUMBER( 'CODIGO' ) SET RELA TO CODIGO INTO arq2 GO TOP WHILE ! EOF() OrdKeyAdd( "NAME", , arq2->COD_PERC + arq1->NOME ) SKIP ENDDO SET ORDER TO ORDNUMBER( 'NAME' ) GO TOP COPY TO RESULT CLOSE DATA ... | ||||||||
| | ||||||||
| ||||||||
| Register | FAQ | Calendar | Search | Today's Posts | Mark Forums Read |
|
#1
08-19-2008, 01:34 PM
| |||
| |||
 Creating customīs indexes in ADS Hi. Please, what I have to do to create customs keys using rdd ADSCDX and xharbour? Using rdd DBFCDX I do: Code: PROCEDURE Main USE arq1 VIA "DBFCDX" INDEX ON CODIGO TAG CODIGO TO arq101 INDEX ON SPACE( 20 ) TAG NAME TO arq1xx CUSTOM USE arq2 NEW VIA "DBFCDX" INDEX ON CODIGO + COD_PERC TAG PERC TO arq201 SELE arq1 SET ORDER TO ORDNUMBER( 'CODIGO' ) SET RELA TO CODIGO INTO arq2 GO TOP WHILE ! EOF() OrdKeyAdd( "NAME", , arq2->COD_PERC + arq1->NOME ) SKIP ENDDO SET ORDER TO ORDNUMBER( 'NAME' ) GO TOP COPY TO RESULT CLOSE DATA RETURN NIL adsAddCustomKey() but I didnīt get success. TIA, FabioNery  |
 |
« Previous Thread
|
Next Thread »
| Thread Tools | |
| Display Modes | |
Linear Mode
All times are GMT -5. The time now is 09:18 PM.
