1
« en: Viernes 12 de Febrero de 2010, 05:43 »
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