*--page activate: loObject = THIS.Grid1.Column2 THIS.Grid1.RECORDSOURCE="" THIS.Grid1.RECORDSOURCE="Tracy" IF !PEMSTATUS(loObject,'Edit1',5) WITH THIS.Grid1.Column2 .REMOVEOBJECT([Text1]) .ADDOBJECT([Edit1],[EditBox]) .CURRENTCONTROL = [Edit1] .Edit1.VISIBLE = .T. .CONTROLSOURCE = "(thisform.returntheaddress())" .Width = 150 ENDWITH ENDIF this.Grid1.refresh() *--Form ReturnTheAddress() RETURN (ALLTRIM(number) + IIF(!EMPTY(apt_room),"-" + TRIM(apt_room)," ") + ; IIF(!EMPTY(st_prefix)," " + TRIM(st_prefix) + " "," ") + ALLTRIM(street) + ; IIF(!EMPTY(st_type)," " + st_type,"") + IIF(!EMPTY(st_suffix)," " + st_suffix,""))