Iniciar sesiónCerrar
Correo:
Contraseña:
Entrar
Recordar sesión en este navegador
Iniciar sesiónIniciar sesiónCrear cuentaCrear cuenta
LWP » Foros » FoxPro/Visual FoxPro » Asociar a un Check un campo de un Cursor.

FoxPro/Visual FoxPro - Asociar a un Check un campo de un Cursor.

Volver
Nuevo Tema
<<>>
 
Vista:

Asociar a un Check un campo de un Cursor.

Publicado por Franklin Gutiérrez (13 intervenciones) el 10/05/2018 20:13:44
Saludos a todos,

Disculpas por mi ignorancia. Quiero asociar a un Check Button un campo de un Cursor que tengo ya creado en memoria.

Estoy utilizando la línea siguiente:

1
thisform.Grid1.Columns(10).CurrentControl = "Check1"

después de haber puesto:

1
2
3
thisform.Grid1.Columns(10).RemoveObject('Text1')

	thisform.Grid1.Columns(10).AddObject("Check1", "chkMiCheck")
	thisform.Grid1.Column10.ControlSource = 'vDocus.Seleccion'

Pero me da error Nro 1881: El resultado de la expresión no es válido.

¿Cómo puedo hacerlo funcionar sin error?

Muchas gracias adelantadas!!!
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
sin imagen de perfil
Val: 1.011
Oro
Ha mantenido su posición en FoxPro/Visual FoxPro (en relación al último mes)
Gráfica de FoxPro/Visual FoxPro

Asociar a un Check un campo de un Cursor.

Publicado por Fidel José (657 intervenciones) el 11/05/2018 17:12:15
Priimero tienes que asignar el control source de la columna

Fijate que si "chkMiCheck" es una clase checkbox que tienes en una librería vcx tuya, te está faltando el nombre de la librería. Si no es así, lo que corresponde es indicar "Checkbox" como clase.
El orden en que ocurren las cosas es muy importante. Mirá el ejemplo (es una configuración genérica de grids que tengo en una librería, por lo que verás todo como variable.

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
CASE afor[m.wi]=="L"
    .Columns[m.wi].ControlSource=m.lcControlSource
    .Columns[m.wi].sPARse=.F.
 
    if At(Upper(ccol)+"/",pSpecialCheck)#0

        IF PEMSTATUS(.Columns[m.wi],"Check1",5)
            .Columns[m.wi].RemoveObject("Check1")
        endif
        .Columns[m.wi].NewObject("Check1","GriCheck","NewClase","",this)
    endif
 
    IF !PEMSTATUS(.Columns[m.wi],"Check1",5)
        .Columns[m.wi].AddObject("Check1",'CheckBox')

    endif
    .Columns[m.wi].CurrentControl="Check1"
    .Columns[m.wi].Check1.Caption=""
    .Columns[m.wi].Check1.Centered = .t.
    .Columns[m.wi].Check1.Visible=.t.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

Asociar a un Check un campo de un Cursor.

Publicado por Franklin (13 intervenciones) el 11/05/2018 18:33:01
Saludos cordiales,

Ya resolví el problema que tenía, repentinamente recordé como se hacía de forma manual sin programación.

De todas formas está muy instructiva la respuesta y vale la pena considerarla.

Gracias totales!
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar