>ok , the follow is my code in the form.init ;
>WITH THISFORM.DET_GRD
> .RECORDSOURCE = ' SELECT * FROM SODETAIL WHERE ALLTRIM(SODETAIL.SO_NO) == ALLTRIM(SONO) INTO CURSOR RESULT'
> .RECORDSOURCETYPE = 4
> .COLUMNCOUNT = 6
> .SetAll("FORECOLOR",rgb(0,0,0),"Column")
> .SetAll("ALIGNMENT",0,"Header")
> FOR I = 1 TO 6
> with .COLUMNS[I]
> .REMOVEOBJECT('TEXT1')
> .ADDOBJECT('TEXT1','TEXTCL')
> .HEADER1.CAPTION = GRD_INFO[I,1]
> .CONTROLSOURCE = GRD_INFO[I,2]
> .TEXT1.VISIBLE = .T.
> endwith
> ENDFOR
> .READONLY = .T.
> .DELETEMARK = .F.
>ENDWITH
>
>* textcl is a class of textbox that provide some click events;
>* GRD_info[,] is an array the contain the grid format and structure~!
>
>i hv try the code u provide , it makes all the record hide up~!
>
>amy mistake of my prg, pls feel free to tell me~! thx!
Wai,
Make this change then tell the result :
.RECORDSOURCE = ' SELECT * FROM SODETAIL WHERE ALLTRIM(SODETAIL.SO_NO) == ALLTRIM(SONO) INTO CURSOR RESULT'
.RECORDSOURCETYPE = 4
.Recordsource = ""
.ColumnCount = -1
.RecordSourceType = 4
.RECORDSOURCE = ' SELECT * FROM SODETAIL WHERE ALLTRIM(SODETAIL.SO_NO) == ALLTRIM(SONO) INTO CURSOR RESULT'
Cetin