Hi,all

I have a problem about creating column in grid by DEFINE CLASS command,the column only visible one row at a time.Rather than fills in all grid rows.
My code as following...

WITH THISFORM.MYGRID
.RECORDSOURCE = "MY.DBF"
.COLUMNCOUNT = 0
.ADDOBJECT("COL","MYCOLUMN")
ENDWITH

DEFINE CLASS MYCOLUMN AS COLUMN
CONTROLSOURCE="MY.CODE"
MOVABLE = .F.
RESIZABLE = .F.
WIDTH=90
VISIBLE = .T.
ADD OBJECT HEADER1 AS MYHEADER
ENDDEFINE

DEFINE CLASS MYHEADER AS HEADER
CAPTION="Code"
PROCEDURE CLICK
WAIT "CLICKED" WINDOW NOWAIT
ENDPROC
ENDDEFINE

Pls kindly help
Thanks
Arnold