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