>>>&& populate fields from Masterstats cursor >>>SELECT MASTERSTATS >>>GO TOP >>>ThisForm.cboRequirement.ControlSource = 'Masterstats' >>>ThisForm.cboRequirement.ColumnCount = 1 >>>ThisForm.cboRequirement.RowSourceType = 6 >>>ThisForm.cboRequirement.RowSource = 'reqt_name' >>>Thisform.cboRequirement.Value = Masterstats.reqt_name >>>ThisForm.cboProbeType.Value = Masterstats.probe_type >>>ThisForm.lblGain.Visible = IIF(ThisForm.cboProbeType.Value='LVDT', .t.,.f.) >>>ThisForm.txtGain.Visible = IIF(ThisForm.cboProbeType.Value='LVDT', .t.,.f.) >>>ThisForm.txtGain.Value = IIF(ThisForm.cboProbeType.Value='LVDT', Masterstats.gain,'') >>>ThisForm.txtChannel.Value = Masterstats.channel >>>ThisForm.txtCard.Value = Masterstats.card >>>ThisForm.txtProbeSN.Value = IIF(ThisForm.cboProbeType.Value='DP',Masterstats.serial, '') >>>ThisForm.txtFullScale.Value = Masterstats.counts >>>ThisForm.txtStroke.Value = Masterstats.stroke >>>ThisForm.txtStdOffset.Value = Masterstats.std_offset >>>ThisForm.txtStdVar.Value = Masterstats.std_var >>>ThisForm.cboUnit.Value = IIF(llInches,'IN','MM') >>>>>>
>>>lcCurrentRec = recno() >>>select masterstats >>>go lcCurrentRec >>>ThisForm.Refresh() >>>>>>