select towns.fullname, towns.Town , towns.ccode, 'Current' as SortOrder ; from towns ; where towns.Town = BldMstr.Town ; union ; select towns.fullname, PostRegn.joiningtwn as Town, towns.ccode, ; 'New ' as SortOrder ; from PostRegn, towns ; where PostRegn.joiningtwn = towns.Town and PostRegn.Town = BldMstr.Town ; order by 4 ; into cursor tRegionand it solved the problem.
>.cmbRegions.rowsource='' > select towns.fullname, towns.Town , towns.ccode ; > from towns ; > where towns.Town = BldMstr.Town ; > union ; > select towns.fullname, PostRegn.joiningtwn as Town, towns.ccode ; > from PostRegn, towns ; > where PostRegn.joiningtwn = towns.Town and PostRegn.Town = BldMstr.Town ; > into cursor tRegion > > .cmbRegions.rowsource='tRegion' > .cmbRegions.listindex=1>