• Domingo 17 de Noviembre de 2024, 17:19

Autor Tema:  Se Podrá?¿?¿  (Leído 1717 veces)

arielb

  • Moderador
  • ******
  • Mensajes: 771
  • Nacionalidad: pa
    • Ver Perfil
    • http://coder-pa.blogspot.com
Se Podrá?¿?¿
« en: Lunes 15 de Noviembre de 2004, 17:06 »
0
k tal amigos para ver el contenido de una tabla yo hago lo siguiente
USE C:\directorio\tabla.dbf shared 0 in
browse last

entonces, lo que kiero hacer es que con solo poner el nombre de la tabla en un textbox será, me aparezca, y como son varias la k voy a usar, digamos que son 5 tambien podría ser así. Poner cinco optionbotton y al seleccionar cualquiera de los 5 me presenta los datos en un grid.
creo que si se puede, a ver si me dan una manito en esto.

saludos
"Porque de tal manera amó Dios al mundo que dio a su hijo unigénito para que todo aquél que en él crea no se pierda mas tenga vida eterna"
Juan 3:16

http://coder-pa.blogspot.com

arielb

  • Moderador
  • ******
  • Mensajes: 771
  • Nacionalidad: pa
    • Ver Perfil
    • http://coder-pa.blogspot.com
Re: Se Podrá?¿?¿
« Respuesta #1 en: Viernes 19 de Noviembre de 2004, 21:28 »
0
k tal amigos miren si se puede de esta , tengo una pantalla con una base de datos
predeterminada, que con solo poner el nombre en un text me presenta la
tabla en un grid, bueno necesito por favor me ayuden en varios puntos:
1* necesito k ese grid no se pueda modificar los datos.
2* colok otros 2 text con un command y kiero poner en ese command, en el
text2 poner el campo de la busqueda y en el text3 poner lo que busque.
3* k ese grid al maximizar la pantalla se ajuste al ancho maximizado.
lo estoy haciendo asi pero no me sale
WITH thisform
LOCATE FOR allt(.text2.text) == ALLTRIM(.text3.text)
recordsource.grid
endwith

les agradezco mucho y saludos a todos

ah el primer dato lo llamo así
set defa to c:\\basedatos
sele 1
with thisform
thisform.label2.Visible = .t.
xtabla = allt(.text1.text)
use &xtabla  SHARED IN 0
thisform.grid1.Visible = .t.
thisform.label3.visible = .t.
thisform.label4.Visible = .t.
thisform.label5.Visible = .t.
thisform.command4.Visible = .t.
thisform.text2.Visible = .t.
thisform.text3.Visible = .t.
.grid1.recordsource = xtabla
.grid1.refresh
endwith
"Porque de tal manera amó Dios al mundo que dio a su hijo unigénito para que todo aquél que en él crea no se pierda mas tenga vida eterna"
Juan 3:16

http://coder-pa.blogspot.com