Programación General > Visual FoxPro

 Configurar evento DblClick dentro de una grilla

(1/1)

galvarezt:
Hola a todos:

Necesito insertar el código del evento 'DblClick' en la casilla Text1 de una columna de la grilla. Lo puedo hacer en la forma, no tengo ningún problema. El lio se genera cuando borro los datos de la tabla con un ZAP. Entonces tengo que regenerar el grid con código:

            thisform.pageframe1.page2.Grid1.RecordSourceType = 1
            thisform.pageframe1.page2.Grid1.RecordSource = "consultaplan"
            thisform.pageframe1.page2.Grid1.ColumnCount = 2
            thisform.pageframe1.page2.Grid1.column1.ControlSource = "consultaplan.cuenta"
            thisform.pageframe1.page2.Grid1.column1.Width = 121
            thisform.pageframe1.page2.Grid1.column2.ControlSource = "consultaplan.nombre"
            thisform.pageframe1.page2.Grid1.column1.Width = 407
            thisform.pageframe1.page2.Grid1.column1.text1.DblClick
            thisform.pageframe1.page2.Grid1.SetAll("DynamicBackColor","miColorPorNivel(nivel)","Column")
            thisform.pageframe1.page2.Grid1.SetAll("DynamicFontBold","miTipoPorNivel(nivel)","Column")

El evento DblClick toma los 2 datos del registro sobre el que se aplica y los estribe en otro Grid. Este es el código:

IF consultaplan.nivel = maxnivel
   _cuenta=consultaplan.cuenta
   _concepto = consultaplan.nombre
   thisform.Pageframe1.Page1.Grid1.Column1.Text1.Value = _cuenta
   thisform.TXTnomCuenta.Value = _concepto
   thisform.pageframe1.page2.Enabled = .F.
   thisform.pageframe1.page1.SetFocus
   thisform.pageframe1.page1.Grid1.Column1.Text1.SetFocus
endif

Como dije antes, esto funciona perectamente hasta que se inserta un nuevo registro en la tabla "consultaplan". Otro dato importante, estoy utilizando MySQL como base de datos, y un "SELECT" me construye el cursor "consultaplan".

No se como ligar el código del evento cuando reconstruyo el grid.

Gracias por sus sugerencias y ayuda

Navegación

[0] Índice de Mensajes