El problema es que en tiempo de ejecución le asignas al Grid la propiedad RecordSource, lo que ocasiona que se reseteen la totalidad de columnas del Control. Una forma de evitar esto es crear un Cursor cuyo nombre se lo asignas en tiempo de Diseño al RecordSource y llenaro con los datos resultantes de la consulta
Saludos
--- En usuarios_fox@yahoogrupos.com.mx, Alex Orihuela <lobito_orihuela@...> escribió:
>
>
> AmigosEstoy usando visual fox pro 9 y estoy relacionando un cursor que me viene de una consulta que le hago a una base de datos access con una grilla, el problema es que en tiempo de diseño he colocado código en los eventos click de los textos de las columnas, pero cuando ya le relaciono la data estos metodos se pierden... como puedo hacer para evitar esto?Muchas gracias por su apoyosaludosAlex.
> mi código es el siguiente:
> cad = "SELECT st_fecha,nu_hora as Hora, Lunes, ";+" Martes, Miercoles, Jueves, Viernes, id_programacion1, id_programacion2, id_programacion3,";+" id_programacion4, id_programacion5, Id_auxprogramacion, id_asesor, dt_fecha";+" FROM TBAuxProgramacion";+" Where id_asesor = '"+xid_asesor +"' and dt_fecha = Cdate('"+DTOC(xfechalunes)+"')"err = Thisform.execute(cad,"TmpProgramacionSemw")SELECT TmpProgramacionSemw
> IF RECCOUNT("TmpProgramacionSemw")>0 THEN thisform.grdprogramacion.RecordSource = "Thisform.grdprogramacion.RecordSource" thisform.grdprogramacion.RecordSource = [TmpProgramacionSemw] thisform.grdprogramacion.column1.Width = 70 thisform.grdprogramacion.column2.Width = 70 thisform.grdprogramacion.column3.Width = 155 thisform.grdprogramacion.column4.Width = 155 thisform.grdprogramacion.column5.Width = 155 thisform.grdprogramacion.column6.Width = 155 thisform.grdprogramacion.column7.Width = 155 thisform.grdprogramacion.column1.header1.Caption = "Fecha" thisform.grdprogramacion.column2.header1.Caption = "Hora" thisform.grdprogramacion.column3.header1.Caption = "Lunes "+DTOC(xfechalunes) thisform.grdprogramacion.column4.header1.Caption = "Martes "+DTOC(xfechalunes+1) thisform.grdprogramacion.column5.header1.Caption = "Miércoles "+DTOC(xfechalunes+2) thisform.grdprogramacion.column6.header1.Caption = "Jueves "+DTOC(xfechalunes+3) thisform.grdprogramacion.column7.header1.Caption = "Viernes "+DTOC(xfechalunes+4) thisform.grdprogramacion.column1.header1.Alignment = 2 thisform.grdprogramacion.column2.header1.Alignment = 2 thisform.grdprogramacion.column3.header1.Alignment = 2 thisform.grdprogramacion.column4.header1.Alignment = 2 thisform.grdprogramacion.column5.header1.Alignment = 2 thisform.grdprogramacion.column6.header1.Alignment = 2 thisform.grdprogramacion.column7.header1.Alignment = 2
> thisform.grdprogramacion.column1.texto1.ReadOnly = .T. thisform.grdprogramacion.column2.texto1.ReadOnly = .T. thisform.grdprogramacion.column1.ReadOnly = .T. thisform.grdprogramacion.column2.ReadOnly = .T.
>
> SELECT TmpProgramacionSemw GO TOP thisform.grdprogramacion.Refresh ELSEENDIF
>
> [Se han eliminado los trozos de este mensaje que no contenían texto]
>
Nenhum comentário:
Postar um comentário