• Domingo 22 de Diciembre de 2024, 20:01

Autor Tema:  Ingresar Datos Desde Un Grid A Una Caja De Texto  (Leído 1917 veces)

jessyysabel

  • Nuevo Miembro
  • *
  • Mensajes: 2
    • Ver Perfil
Ingresar Datos Desde Un Grid A Una Caja De Texto
« en: Miércoles 9 de Agosto de 2006, 23:06 »
0
Hola a todos soy nueva en la programación en Foxpro por lo que necesito ayuda, bueno lo que quiero hacer es lo siguiente tengo un formulario el cual es para ingresar datos a una tabla de una base de datos a travez de unas cajas de texto bueno lo que necesito es esto para ingresar un dato a una caja de texto necesito jalarlo desde otra tabla el cual lo estoy mostrando en otro formulario en un grid, laforma de jalar el dato quiero que sea de esta forma escribo en la caja de texto por decir el nombre del cliente que puede ser HUAMANI HAURCAYA CARLOS, pero en la forma que yo voy escribiendo parte del primer apellido que se me active el otro formulario donde se encuentra el grid mostrando todos los nombres y si yo sigo escribiendo el apellido que se vaya filtrando y colocando en el nombre correcto para agregarlo y que aparezca en el otro formulario, el problema es que no se la forma de hacerlo ni el codigo a utilizar POR FAVOR AYUDENME.
S e los voy ha agradecer mucho mi correo es jessytac_a@hotmail.com

helidel

  • Nuevo Miembro
  • *
  • Mensajes: 5
    • Ver Perfil
Re: Ingresar Datos Desde Un Grid A Una Caja De Texto
« Respuesta #1 en: Martes 15 de Agosto de 2006, 04:52 »
0
Hola Yessi, yo lo haría de esta forma:

en el evento ..interactichange del textbox iria el codigo mas o menos asi,

&& almaceno lo digitado en una variable

cadena=alltrim(this.value)

&& genero la consulta con los registros que coincidan con el parametro ingresago

select * from tablename where nombrefield like '%'+'&cadena'+'%' into cursor fantasma

&&selecciona el cursor lectura-escritura del formulario donde se encuentra el grid

select cursor_temp
zap &&elimino el contenido del cursor
append from dbf('fantasma')  &&agrego el resultado de la consulta
go top  && ubico el cursor en el primer registro
 
&&en la propiedad name del formulario donde se encuentra el grid indica un nombre para identificarlo posterior mente name=FRM_BUSQ

&&busco el formulario en la aplicacion actual
for i=1 to _screen.formcount
  if upper(_screen.forms(i).name)='FRM_BUSQ'
    _screen.forms(i).grid1.refresh
 endif
next

notas:
para realizar el append from dbf() el cursor a actualizar y la consulta deben tener los mismos campos con los mismos nombres

no vincules la tabla directamente, usa en el grid un cursor readwrite para actualizarlo posteriormente

espero me halla hecho entender, y suerte.