Con: Clientes->(DbSeek(Alltrim(cNombre),.T.)) Se genera: SELECT A.`nombre` FROM `clientes_dbf` A WHERE (( A.`nombre` >= 'HOLA' )) ORDER BY A.`nombre` LIMIT 1 /* SoftSeek 1 */
... registros 20 25 31 32 .. Si hago una búsqueda del valor 27, como no existe, el puntero se va al final del recordset. Lo que quiero hacer es "softseek" es decir, que si el 27 no existe que el puntero se pare en el 31, que es el siguiente. ¿Cómo se hace? Nota: Acabo de subir otra versión ...
... op:save() endif La clase se puede descargar de aquí: http://www.box.net/shared/5iu17n32pi Un par de preguntas: 1. ¿ como se hace un softseek cuando el campo es numérico? oRs:Find("fac = "+str(nFac),,1) no hace softseek. 2. Para cuando la conexión es lenta, ¿alguien tiene ...
... oFont:end() return nil //---------------------------------------------------------------------------// function config() set date british set softseek on set confirm on set deleted on set century on set epoch to 1960 return(nil) //---------------------------------------------------------------------------// ...
... has focus ) Please make sure the Browse has focus ( normally better we set focus on int clause ) and the proper index is selected. Please note SoftSeek need not be used. One friendly advice: Please read the comments included in the method AddColumn( ... ) // This method is intended only to ...
... has focus ) Please make sure the Browse has focus ( normally better we set focus on int clause ) and the proper index is selected. Please note SoftSeek need not be used. One friendly advice: Please read the comments included in the method AddColumn( ... ) // This method is intended only to ...
... redefine read report replace right rlock recno sizes sequence self super set say separator size style sysrefresh shared select store skip seek softseek time title tone to tooltip top total transform var val valid valtype while when window with use update upper zap /C2 new /C3 local static public ...
... redefine read report replace right rlock recno sizes sequence self super set say separator size style sysrefresh shared select store skip seek softseek time title tone to tooltip top total transform var val valid valtype while when window with use update upper zap /C2 new /C3 local static public ...
... redefine read report replace right rlock recno sizes sequence self super set say separator size style sysrefresh shared select store skip seek softseek time title tone to tooltip top total transform var val valid valtype while when window with use update upper zap /C2 new /C3 local static public ...
... el presente me funciona al 100% yo no uso .cdx igualmente tengo indices sin usar esto del Len y demas, y funcionan bien; Antes del Seek pongo set softseek off y creo que funciona bien. ¿no tienen conocimiento de algun error aleatorio que se verifique con los indices? ademas, el locate, si hago: ...
yo no uso .cdx igualmente tengo indices sin usar esto del Len y demas, y funcionan bien; Antes del Seek pongo set softseek off y creo que funciona bien. ¿no tienen conocimiento de algun error aleatorio que se verifique con los indices? ademas, el locate, si hago: loca for st->cod=xcod1 ...
... Tengo la siguiente funcion asociada a un list box: olbx:bKeyDown:={|nKey|KeySeek(nKey,olbx)} y la funcion keyseek: Function KeySeek(nKey,olbx) SET SOFTSEEK ON IF nKey = 8 // Reset on BackSpace Key oString := "" go top olbx:Upstable() ELSE IF (nKey = 32) .OR. (nKey = 46) .OR. (nKey = 45) .OR. (nKey ...
... xbrowse library code. And I personally prefer writing the code without touching library code generally. This is all what is needed ( I am using softseek ) oBrw:bSeek := { |cSeek| CUST->( DbSeek( Val( cSeek ), .t. ), !eof() ) }
... else xcompleta=.f. endif SELE 1 INDEX ON COSTO->ART_CODIG TO C:\TEMPO\TMPART3 go top do while !eof() XART_CODIG:=COSTO->ART_CODIG SELE 2 SET SOFTSEEK OFF SEEK XART_CODIG IF !EOF() OleSetProperty( hActiveWindow, "RowHeadings", x, Str( x ) ) OleSetProperty( hSheet, "Cells", x, 1, "'"+XART_CODIG ...