>>this.Value = this.Value >>>>in InteractiveChange event of the combo.
>with thisform.pageframe1.pagSeatBlocks.grdSeatBlocks > > .recordsource = "rsTSBlocks" > .rowheight = 24 > > .highlightstyle = 0 > .highlightrowlinewidth = 3 > * .HighlightBackColor = lnRowHighlightColor > * .SelectedItemBackColor = lnSelectionHighlightColor > * .HighlightForeColor = rgb(255, 255, 255) > > with .colLevels.cboLevels > .rowsource = '' > .rowsourcetype = 2 > .parent.controlsource = 'rsTSBlocks.LevelID' > .rowsource = "csrBlockLevels" > endwith > > with .colCenterMost.cboPosition > > .rowsourcetype = 3 > .rowsource = "select * from csrSeatsCentricity into cursor csrCM" > .parent.controlsource = 'rsTSBlocks.CenterMost' > endwith > > with .colSections.cboSections > > .rowsourcetype = 3 > .rowsource = "select * from csrSections where LevelID = ?m.nLevelID into cursor csrSect" > .parent.controlsource = 'rsTSBlocks.SectionID' > endwith > > .colRow.controlsource = 'rsTSBlocks.Row' > .colSeatStart.controlsource = 'rsTSBlocks.SeatStart' > .colNumSeats.controlsource = 'rsTSBlocks.NumSeats' > .colRanking.controlsource = 'rsTSBlocks.Ranking' > .colSequencing.controlsource = 'rsTSBlocks.Sequencing' > * .colCenterMost.ControlSource = 'rsTSBlocks.CenterMost' > .setall('DynamicFontStrikeThru','thisform.RefreshSeatBlockGrid()') > .refresh() >endwith >SELECT rsTSBlocksTry to change:
with .colLevels.cboLevels .rowsource = '' .rowsourcetype = 2 .parent.controlsource = 'rsTSBlocks.LevelID' .rowsource = "csrBlockLevels" endwith * to with .colLevels.cboLevels .rowsource = '' .rowsourcetype = 3 .parent.controlsource = 'rsTSBlocks.LevelID' .rowsource = "SELECT * FROM csrBlockLevels INTO CURSOR cboBlockLevels" endwith>