>*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.CONTROLSOURCE = "(thisform.returntheaddress())" > .Edit1.VISIBLE = .T. > ENDWITH > ENDIF >*Form returntheaddress method (field names are correct and all are character): > RETURN (ALLTRIM(number) + IIF(!EMPTY(apt_room),"-" + TRIM(apt_room),' ')) >*This fails as well: > RETURN "Test Value" >>When the pagetab is clicked, the following error appears: