tango

Seria así: xlen=LEN(ALLTRIM(thisform.txtCampo.Value)) FOR xn =1 TO xlen thisform.edtTexto.Value = SUBSTR(UPPER(thisform.txtCampo.Value),xn,1) + thisform.edtTexto.Value NEXT De esta manera lo convierte al revés

En mi caso lo aria con vfox. select mitabla do while .t. and !eof xlen=LEN(ALLTRIM (tabla.codigo)) FOR xn =1 TO xlen IF SUBSTR(UPPER(tabla.codigo),xn,1) !$ '-.' xnombre = xnombre+SUBSTR(UPPER(tabla.codigo),xn,1) ENDIF NEXT &&Seteo los caracter que no...

Ya esta contestada.

Te comento que nunca tuve la necesidad de lo que buscas, por ese motivo no tengo ninguna rutina, si en el caso contrar de exportar datos a excel. Pero estuve buscando en internet y encontré esta función, pruébala quizás pueda ayudar. Que andes bien....

Un grid no es ni más ni menos un contenedor de datos, por lo cual necesita que este ligada a un cursor, vista o tabla, en caso de querer hacer referencia a un dato de la grilla solo tienes que hacer referencia al cursor. Campo y ya tienes el dato,...

Disculpa la tardanza. select mitabla INDEX ON cpo1+cpo2 TO nmb_index1

oGrd = ThisForm.miGrilla OGrd. SetAll("dynamicbackcolor", "", "Column") OGrd. SetAll("dynamicforecolor", "", "Column") oGrd.SetAll("dynamicbackcolor", ; "IIF(miCursor.importe > 0, RGB(255,255,225), RGB(255,255,255))", "Column") oGrd. Refresh Esto va...

SET DEVICE TO PRINTER SET PRINT ON @ PROW( )+1,10 SAY 'Company: ' @ PROW( )+1,10 SAY 'Phone: ' @ PROW( )+1,1 SAY '' IF PROW( ) > 62 EJECT Endif SET PRINT OFF Prueba con esto.

Sinceramente no me acuerdo la solución que di ese momento, pero a lo que tu sucede en caso de que la rutina no este preparada para adjuntar más de un archivo, primero hay que pedir los archivo a enviar o adjunar y volcar en una lista para que el...

Como estas, lo que te esta sucediendo es algo normal cuando el volumen de información se expande considerablemente. Lo que debes haces es una conexión a un base de datos más robusta para llamarla de una manera, tienes varias en el mercado por lo...