>>WITH thisform.grdHolds >> for each loColumn in .columns >> >> for each loControl in m.loColumn.controls >> if upper(m.loControl.baseclass) = "HEADER" >> loControl.Alignment = 2 >> loControl.FontBold = .t. >> bindevent(m.loControl,"Click",thisform,"HeaderClick") >> >> endif >> next >> next >> >> with .colLevels.cboLevels >> .rowsource = '' >> .rowsourcetype = 3 >> .rowsource = "select * from csrAllLevels where LevelID IS NOT NULL order by Descrip into cursor csrBLvls nofilter" >> >> .parent.ControlSource = 'rsHolds.LevelID' >> endwith >> >> with .colSections.cboSections >> .rowsource = '' >> .rowsourcetype = 3 >> .rowsource = "select * from csrAllSections where LevelID = ?m.nLevelID order by Descrip into cursor csrSect nofilter" >> .parent.ControlSource = 'rsHolds.SectionID' >> endwith >> >> with .colRow.cboRows >> .rowsource = '' >> .rowsourcetype = 3 >> .rowsource = "select * from csrAllRows where LevelID = ?m.nLevelID and SectionID = ?m.nSectionID order by Row into cursor csrRows nofilter" >> .parent.ControlSource = 'rsHolds.Row' >> endwith >> >>* .setall('DynamicFontStrikeThru','thisform.RefreshHoldsGrid()') >> .refresh() >>endwith>>