>*--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,"")) >