Utilizamos cookies propias y de terceros para mejorar la experiencia de navegación, y ofrecer contenidos y publicidad de interés.
Al continuar con la navegación entendemos que se acepta nuestra política de cookies.
Iniciar sesión Cerrar
Correo:
Contraseña:
Entrar
Recordar sesión en este navegador
Iniciar sesiónIniciar sesiónCrear cuentaCrear cuenta

FoxPro/Visual FoxPro - Cómo hacer funcione un COMBOBOX dentro de una grid

  Imprimir  
Vista:
Me gusta: Está pregunta es útil y esta clara
0
No me gusta: Está pregunta no esta clara o no es útil
 
Asunto:

Cómo hacer funcione un COMBOBOX dentro de una grid

Autor:paty bejar (19 intervenciones)
Fecha:18/05/2010 19:51:41
Hola, quisiera saber cómo puede funcionar un combo dentro de una grid, el cual tome valores de una tabla.

gracias
Responder
Me gusta: Está respuesta es útil y esta clara
0
No me gusta: Está respuesta no esta clara o no es útil
 
Asunto:

RE:Cómo hacer funcione un COMBOBOX dentro de una g

Autor:Ana (15 intervenciones)
Fecha:18/05/2010 20:08:39
Lo que generalmente hago es remover el grid y luego crearlo según las características que quiero, te mando un ejemplo en el que le agrego cuadros de verificación en la columna 2 y 4, espero te sirva.

*/* Crea la cuadrícula
with thisform.Pgf_11.Pg_112.cnt_1123
.RemoveObject("gd_11231")
.AddObject("gd_11231","grid")
endwith
*/* Da las coordenadas de ubicación a la cuadrícula
with thisform.Pgf_11.Pg_112.cnt_1123.gd_11231
.recordsource = ""
.ColumnCount = 8
.Height = 151
.Left = 3
.Top = 4
.Width = 318
.Visible = .t.
.Enabled = .t.
endwith
*/* Da formato a la cuadrícula
with thisform.Pgf_11.Pg_112.cnt_1123.gd_11231
.recordsourceType = 1 && alias
.recordsource = "dbf_temp_11231"
.column1.width = 40
.column1.Header1.Caption = "Activo"
if xtipo < 7
.column2.width = 80
else
.column2.width = 0
endif
.column2.Header1.Caption = "F.Informe"
if xtipo < 7
.column3.width = 0
else
.column3.width = 120
endif
.column3.Header1.Caption = "Desc.Informe"
.column4.width = 40
.column4.Header1.Caption = "Rpta."
.column5.width = 80
.column5.Header1.Caption = "F.Rpta."
.column6.width = 0
.column7.width = 0
.column8.width = 0
endwith
*/* Pone en la columna 1 el cuadro de verificación
with thisform.Pgf_11.Pg_112.cnt_1123.gd_11231.column1
.AddObject("check1","checkBox")
.currentcontrol = "check1"
.Check1.Visible = .t.
.Check1.Caption = ""
.Sparse = .f.
endwith
*/* Pone en la columna 4 el cuadro de verificación
with thisform.Pgf_11.Pg_112.cnt_1123.gd_11231.column4
.AddObject("check1","checkBox")
.currentcontrol = "check1"
.Check1.Visible = .t.
.Check1.Caption = ""
.Sparse = .f.
endwith
thisform.Pgf_11.Pg_112.cnt_1123.enabled = .t.
Comentar
Imágen de perfil de Mauricio
Me gusta: Está respuesta es útil y esta clara
0
No me gusta: Está respuesta no esta clara o no es útil
 
Asunto:

Cómo hacer funcione un COMBOBOX dentro de una grid

Autor:Mauricio (995 intervenciones)
Fecha:19/05/2010 01:48:49
Revisa este link, espero que te sea de mucha ayuda:
http://www.portalfox.com/index.php?name=News&file=article&sid=2698
Comentar