General information
Category:
Databases,Tables, Views, Indexing and SQL syntax
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!
Previous
Next
Reply
View the map of this thread
View the map of this thread starting from this message only
View all messages of this thread
View all messages of this thread starting from this message only