Pasar información de una tabla a otra
Hola:
Necesito ayuda con pasar los registros de una tabla a otra utilece variables y solo pasa el primer registro, también utilice
select tabla1
append from tabla 2
Y no me funciono, lo que quiero hacer es una búsqueda por letra o palabra es decir si escribo el apellido perez que me presente a todos los perez en una lista, por eso uso dos tablas una la tengo egenerada en el grid y la otra es donde están todos los registros.
Muchas gracias
Necesito ayuda con pasar los registros de una tabla a otra utilece variables y solo pasa el primer registro, también utilice
select tabla1
append from tabla 2
Y no me funciono, lo que quiero hacer es una búsqueda por letra o palabra es decir si escribo el apellido perez que me presente a todos los perez en una lista, por eso uso dos tablas una la tengo egenerada en el grid y la otra es donde están todos los registros.
Muchas gracias
1 Respuesta
Respuesta de ingesoft
1
Mirs este ejemplito con un textbox y un list
En el intercative change del texbos escribe
if lastkey()#27
SET EXACT OFF
Cadena=UPPER(Alltr(This.Value)) + "%"
CadSQL = "Select codigo,nombres" + ;
" FROM cur_buscar" + ;
" WHERE UPPER(nombres) LIKE '" + alltr(Cadena) + "' " + ;
" ORDER BY nombres" +;
" INTO CURSOR mylist"
THISFORM.List1.Rowsource = CadSQL
THISFORM.list1.listindex=1
THIS.Setfocus
THISFORM. List1. REFRESH
Endif
Si te sirvió finaliza tu pregunta
En el intercative change del texbos escribe
if lastkey()#27
SET EXACT OFF
Cadena=UPPER(Alltr(This.Value)) + "%"
CadSQL = "Select codigo,nombres" + ;
" FROM cur_buscar" + ;
" WHERE UPPER(nombres) LIKE '" + alltr(Cadena) + "' " + ;
" ORDER BY nombres" +;
" INTO CURSOR mylist"
THISFORM.List1.Rowsource = CadSQL
THISFORM.list1.listindex=1
THIS.Setfocus
THISFORM. List1. REFRESH
Endif
Si te sirvió finaliza tu pregunta
Hola muchas gracias por tu respuesta, no le entendí muy bien al código que me mandaste hay cosas que no se muy bien aun, pero te mando mi código eso lo entengo en el lostfocus de mi cuadro de texto, te comento que si hace la búsqueda pero solo me manda el primer registro que cumple con la condición, no todos los que la cumplen, yo creo que el error esta en donde hago el cambio de registros, bueno espero me puedas ayudar muchísimas gracias de ante mano:
Este es mi código
public a,b,c
set default to c:\trabajo
set delete on
select operacion
thisform.refresh
delete all
thisform.refresh
SELECT producto
LOCATE FOR ALLTRIM(thisform.TEXT2.value) $ ALLTRIM(producto.producto)
FOUND()
a=producto.codigo
b=producto.producto
c=inventario.cantidad
SELECT operacion
APPEND BLANK
replace operacion.codigo WITH a
replace operacion.producto WITH b
replace operacion.cantidad WITH c
ENDIF
thisform.list1.visible=.f.
thisform.list1.visible=.t.
Thisform.refresh
Este es mi código
public a,b,c
set default to c:\trabajo
set delete on
select operacion
thisform.refresh
delete all
thisform.refresh
SELECT producto
LOCATE FOR ALLTRIM(thisform.TEXT2.value) $ ALLTRIM(producto.producto)
FOUND()
a=producto.codigo
b=producto.producto
c=inventario.cantidad
SELECT operacion
APPEND BLANK
replace operacion.codigo WITH a
replace operacion.producto WITH b
replace operacion.cantidad WITH c
ENDIF
thisform.list1.visible=.f.
thisform.list1.visible=.t.
Thisform.refresh
¿Y por no copias el código que te mande? ¿Y lo haces funcionar sigues con locate es de la época de mi abuelita o no quieres aprender?
