Problemas con Grid
Publicado por Ivonne (35 intervenciones) el 12/04/2007 00:27:25
Hola amigos de la web,quisiera que me sacaran de duda con lo siguiente... tengo creado un grid en el que muestro el resultado de una consulta, cuando le doy click sobre un registro en el grid la información me la debe enviar a un formset si quiero realizar otra consuta me debe dejar hacer lo mismo,mi problema es que en una tercera consulta ya no me muestra el resultado en la pantalla form2..el codigo que tengo es el siguiente:
SELECT detalles.clave,detalles.nomsuc,detalles.nomequipo,detalles.nomdepto,detalles.nomusuario,detalles.cantidad,detalles.modelo,detalles.observa;
FROM bdsoporte!detalles ;
WHERE detalles.clave=ALLTRIM(thisform.text1.value);
INTO CURSOR busco_suc
SELECT busco_suc
GO top
n=RECCOUNT()
IF n>0
thisformset.form1.grid2.refresh
thisformset.form1.grid2.RecordSource="busco_suc"
thisformset.form1.grid2.Width=980
thisformset.form1.grid2.Height=588
thisformset.form1.grid2.ColumnCount=7
thisformset.form1.grid2.column1.header1.Caption="Clave"
thisformset.form1.grid2.column2.header1.Caption="Suc/Sup"
thisformset.form1.grid2.column3.header1.Caption="Equipo"
thisformset.form1.grid2.column4.header1.Caption="Departamento"
thisformset.form1.grid2.column5.header1.Caption="Usuario"
thisformset.form1.grid2.column6.header1.Caption="Cantidad"
thisformset.form1.grid2.column7.header1.Caption="Modelo"
thisformset.form1.grid2.column1.Width=100
thisformset.form1.grid2.column2.width=180
thisformset.form1.grid2.column3.Width=122
thisformset.form1.grid2.column4.width=180
thisformset.form1.grid2.column5.Width=180
thisformset.form1.grid2.column6.width=50
thisformset.form1.grid2.column7.Width=200
thisformset.form1.grid2.column1.Text1.Value=busco_suc.clave
thisformset.form1.grid2.column2.Text1.Value=busco_suc.nomsuc
thisformset.form1.grid2.column3.Text1.Value=busco_suc.nomequipo
thisformset.form1.grid2.column4.Text1.Value=busco_suc.nomdepto
thisformset.form1.grid2.column5.Text1.Value=busco_suc.nomusuario
thisformset.form1.grid2.column6.text1.Value=busco_suc.cantidad
thisformset.form1.grid2.column7.Text1.Value=busco_suc.modelo
Por favor les pido que me ayuden a resolver este problema,ya que me es urgente..gracias de antemano....Saludos.
SELECT detalles.clave,detalles.nomsuc,detalles.nomequipo,detalles.nomdepto,detalles.nomusuario,detalles.cantidad,detalles.modelo,detalles.observa;
FROM bdsoporte!detalles ;
WHERE detalles.clave=ALLTRIM(thisform.text1.value);
INTO CURSOR busco_suc
SELECT busco_suc
GO top
n=RECCOUNT()
IF n>0
thisformset.form1.grid2.refresh
thisformset.form1.grid2.RecordSource="busco_suc"
thisformset.form1.grid2.Width=980
thisformset.form1.grid2.Height=588
thisformset.form1.grid2.ColumnCount=7
thisformset.form1.grid2.column1.header1.Caption="Clave"
thisformset.form1.grid2.column2.header1.Caption="Suc/Sup"
thisformset.form1.grid2.column3.header1.Caption="Equipo"
thisformset.form1.grid2.column4.header1.Caption="Departamento"
thisformset.form1.grid2.column5.header1.Caption="Usuario"
thisformset.form1.grid2.column6.header1.Caption="Cantidad"
thisformset.form1.grid2.column7.header1.Caption="Modelo"
thisformset.form1.grid2.column1.Width=100
thisformset.form1.grid2.column2.width=180
thisformset.form1.grid2.column3.Width=122
thisformset.form1.grid2.column4.width=180
thisformset.form1.grid2.column5.Width=180
thisformset.form1.grid2.column6.width=50
thisformset.form1.grid2.column7.Width=200
thisformset.form1.grid2.column1.Text1.Value=busco_suc.clave
thisformset.form1.grid2.column2.Text1.Value=busco_suc.nomsuc
thisformset.form1.grid2.column3.Text1.Value=busco_suc.nomequipo
thisformset.form1.grid2.column4.Text1.Value=busco_suc.nomdepto
thisformset.form1.grid2.column5.Text1.Value=busco_suc.nomusuario
thisformset.form1.grid2.column6.text1.Value=busco_suc.cantidad
thisformset.form1.grid2.column7.Text1.Value=busco_suc.modelo
Por favor les pido que me ayuden a resolver este problema,ya que me es urgente..gracias de antemano....Saludos.
Valora esta pregunta


0