>&& 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() >>