>Hello Edward
>thanks for your reply, but i have a doubt
>first:
>where in my code i must apply "Column.Control.Lostfocus or Column.Control.Interactivechange events"
>because i only can make these event on runtime not in design mode.
>also i have another code to capture the position of the active column in the grid and hide them with the event before form init:
>
>STORE "" TO clname
>FOR EACH myform IN _Screen.forms
>IF UPPER(myform.name)="SBO"
>WITH myform.Pageframe1.Page1.Cont1.Grid1
>FOR i=1 TO .columnCount
>IF UPPER(.Columns(i).ControlSource)="BI.EDEBITO"
>clname=.Columns(i).name
>.RemoveObject(clname)----(a)
>exit
>ENDIF
>NEXT i
>EXIT
>ENDWITH
>ENDIF
>NEXT myform
>
I don't think this code may work all time. Could you change it to following:
For each oForm in _screen.forms
IF not UPPER(oForm.name)=="SBO"
Loop
Endif
WITH oForm.Pageframe1.Page1.Cont1.Grid1
For each oColumn in .columns
IF not UPPER(oColumn.ControlSource)=="BI.EDEBITO"
loop
Endif
.RemoveObject(oColumn.name)
Exit
Endfor
Endwith
Exit
Endfor
Edward Pikman
Independent Consultant