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