*-------------------------------------------------- LOCAL strSql as string strSql = "asp_GetClientAppel @Id_Client =" + ALLTRIM(STR(client.Id_Client)) + ", @Langue = " + strDblq(Z_Lang) IF used("apClient") THEN SELECT ("apClient") USE ENDIF IF SQLEXEC(z_conn,strSql,"apClient") >= 0 thisform.pgfClient.pagSpecification.grdVox.RecordSource = "" Select * from ("apClient") INTO CURSOR lCurApClient READWRITE noconsole thisform.pgfClient.pagSpecification.grdVox.RecordSourceType = 1 thisform.pgfClient.pagSpecification.grdVox.RecordSource = "lCurApClient" ENDIF *---------------------------------------------------When I do this, all is allright, the grid stay in his first state all columns are like I designed them.
*-------------------------------------------------- LOCAL strSql as string strSql = "asp_GetClientAppel @Id_Client =" + ALLTRIM(STR(client.Id_Client)) + ", @Langue = " + strDblq(Z_Lang) IF used("apClient") THEN SELECT ("apClient") USE ENDIF IF SQLEXEC(z_conn,strSql,"apClient") >= 0 thisform.pgfClient.pagSpecification.grdVox.RecordSource = "" thisform.pgfClient.pagSpecification.grdVox.RecordSource = "apClient" ENDIF *---------------------------------------------------Thanks a lot