FoxPro/Visual FoxPro - ayuda con el grid

hola gracias de antemano, mi duda es como colocar en un grid un check box para un campo logico si para llenar el grid utilizo un sql o se debe cambiar?
gracias

Saludos

Marylu, mira yo utilizo en mis aplicaciones el GRID, pero con tablas temporales, te explico.

Los datos los tengo a nivel de sql, pero hago un select a la tabla en SQl deseada y luego creo una temporal en el C:\temp\tablagrid.dbf

Select * from sqltabla;
Where blablab = blablabl;
into table c:\temp\tablagrid.dbf

Luego le agregas la columna logia a esta tabla, asi mira

IF !USED('TABLAGRID')
USE C:\TEMP\TABLAGRID.DBF EXCLUSIVE
ENDIF
SELECT TABLAGRID
alter table TABLAGRID add column STA L

Sta = campo en donde aparesera el chek.

Lo que te resta es crear el GRID1 con esta tabla y luego en la columna que quieres que salga el chek pondras esto en el Init del GRID1, mira esto:

oGrd = THISFORM.grid1
oGrd.SetAll("dynamicbackcolor", "", "Column")

oGrd.SetAll("dynamicbackcolor", ;
"IIF(TABLAGRID.sta, RGB(255,255,0), RGB(255,255,255))", "Column")

Thisform.grid1.Column3.AddObject("chk1", "checkbox")
THisform.grid1.Column3.CurrentControl="chk1"
thisform.grid1.Column3.chk1.Visible =.t.
thisform.grid1.Column3.Sparse =.f.
thisform.grid1.Column3.chk1.caption =' '

*----------------------

En el:
AfterRowColChange, del GRID1, pon esto:

replace TABLAGRID.sta with .t.
Thisform.Grid1.Refresh()

Y en el :
BeforeRowColChange, del GRID1, pon esto:

Replace TABLAGRID.sta with .f.
Thisform.Grid1.Refresh()

Espero que te funcione como hasta ahora me esta funcionando, me dejas saber.

Att.
Antonio R. Moquete Mejia
Santo Domingo Rep. Dom.

antonio gracias por tu ayuda, pero mira ya hice todo lo que me dices pero no logro hacer que al momento de ejecucion pueda activar o desactivar el checkbox es decir solo es de lectura, que mas puedo hacer?

Tienes que definir el campo del grid como logico, cuyos valores son .t. o .f.

ve este ejemplo que trae VFP.

\Samples\Solution\Controls\Grid\controls.scx

jesus gracias de nuevo, pero mira ya lo estableci como un campo logico y aun asi no me deja modificar, el ejemplo no lo tengo, porfa que crees que me falte establecer para poder modificar

Marylu,

Chequea si tienes el GRID1.Enabled = .F.

Tienes que ponerle a la propiedad del GRID1 que sea Enabled = .T.

Y no importa que esten todas las columnas en RedOnly, pon solo la columna y el tex1 en donde tienes el campo logico.

Creaste una tabla temporal?
Le creaste un campo de tipo logico?

IF = si Then

No veo porque te funciona, si no te funciona te envio un ejemplo despues que me conteste, a tu direccion electronica?

Endif

Saludos

Te envie un ejemplo a tu direccion de Yahoo.

Espero que te funcione para lo que queires.

Att.
Antonio R. Moquete Mejia
Santo Domingo, Republica Dominicana

gracias antonio muy amable

Saludos,

Marylu, funciono lo que querias hacer?

Antonio R. Moquete Mejia
Santo Domingo Rep. Dom.

si muchas gracias, me sirvio mucho, ya pude solucionarlo

saludos