PROCEDURE GetColumValue(loGrid,lcColumnName) LOCAL loColumn IF !PEMSTATUS(loGrid,lcColumnName,5) RETURN .NULL. ENDIF loColumn=EVAL("loGrid."+lcColumnName) RETURN EVAL("loColumn.ControlSource")spinner, ControlSource= GetColumValue(This.Parent.cGrid1,"nlockcolumn")