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!