*--Page activate() IF !USED("cContact") OR cContact.Occup_id != THISFORM.pcOccup_id THIS.GrdMain.RECORDSOURCE="" =SQLFire("SE","{oj occ_cont LEFT OUTER JOIN occ_ph ON Occ_cont.cont_id = Occ_ph.id AND Occ_ph.sequence = 1}",; "occ_cont.occup_id LIKE '" + THISFORM.pcOccup_id+ "'","occ_cont.*, occ_ph.phone",; "cContact","ORDER BY occ_cont.sequence") ENDIF *--cContact exists now and has 2 records SELECT cContact THIS.GrdMain.RECORDSOURCE="cContact" WITH THIS.GrdMain .Width = 669 .FontSize = 9 .Fontname = 'Arial' .Column1.WIDTH = 45 .Column2.WIDTH = 213 .Column3.WIDTH = 64 .Column4.WIDTH = 45 .Column5.WIDTH = 34 .Column6.WIDTH = 57 .Column7.WIDTH = 114 .Column8.WIDTH = 75 .Column1.Header1.CAPTION = 'Seq' .Column2.Header1.CAPTION = 'Name/Title' .Column3.Header1.CAPTION = 'Type' .Column4.Header1.CAPTION = 'Owner' .Column5.Header1.CAPTION = 'Key' .Column6.Header1.CAPTION = 'Occupant' .Column7.Header1.CAPTION = 'Business' .Column8.Header1.CAPTION = 'Apt/Suite' .Column1.Header1.ALIGNMENT = 2 .Column2.Header1.ALIGNMENT = 2 .Column3.Header1.ALIGNMENT = 2 .Column4.Header1.ALIGNMENT = 2 .Column5.Header1.ALIGNMENT = 2 .Column6.Header1.ALIGNMENT = 2 .Column7.Header1.ALIGNMENT = 2 .Column8.Header1.ALIGNMENT = 2 .Column4.Alignment = 2 .Column5.Alignment = 2 .Column6.Alignment = 2 .Column1.CONTROLSOURCE = "cContact.sequence" .Column2.CONTROLSOURCE = "(ALLTrim(Last) + IIF(!EMPTY(LAST) AND !EMPTY(FIRST),', ','') + ALLTRIM(First) + IIF(!EMPTY(MIDDLE),' ' + ALLTRIM(Middle),'') + IIF(!EMPTY(Title), ' / ' + ALLTRIM(TITLE),''))" .Column3.CONTROLSOURCE = "type" .Column4.CONTROLSOURCE = "(IIF(owner,'Y',''))" .Column5.CONTROLSOURCE = "(IIF(key_holder,'Y',''))" .Column6.CONTROLSOURCE = "(IIF(Occupant,'Y',''))" .Column7.CONTROLSOURCE = "Institutio" .Column8.CONTROLSOURCE = "(ALLTRIM(addr_1)+' '+ALLTRIM(apt_room))" ENDWITH THIS.GrdMain.SETFOCUS
*--Grid AfterRowColchange LPARAMETERS nColIndex DODEFAULT(nColIndex) WITH THIS.PARENT && textboxes/editbox on the page display values from the grid recordsource .Notes.Refresh() .Phone.Refresh() .ButNotes.Refresh() ENDWITH