Thierry,

Thy setting the RecordSource = "" before use close the cursor.

>Hi all,
>
>I've got some problems with my grid (ones again)
>
>here my Method's code
>
>

>*--------------------------------------------------
>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.
>
>I tried to suppress the "lCurAPClient" cursor and directly use the "apClient" cursor as RecordSource, but I lose all the grid design.
>
>What's wrong in the following code?
>
>

>*--------------------------------------------------
>LOCAL strSql as string
>
>strSql = "asp_GetClientAppel @Id_Client =" + ALLTRIM(STR(client.Id_Client)) + ", @Langue = " + strDblq(Z_Lang)
>
>IF used("apClient") THEN
	<b>thisform.pgfClient.pagSpecification.grdVox.RecordSource = ""</b>
>	SELECT ("apClient")
>	USE
>ENDIF
>	
>IF SQLEXEC(z_conn,strSql,"apClient") >= 0
>	thisform.pgfClient.pagSpecification.grdVox.RecordSource = "apClient"
>ENDIF
>*---------------------------------------------------
>

>
>Thanks a lot
>Thierry