16,555
社区成员
发帖
与我相关
我的任务
分享
Dim ccll As Single = Val(TextBox12.Text) / Val(TextBox4.Text)
Dim shl As Single = Val(TextBox13.Text) / Val(TextBox7.Text)
Dim xpshl As Single = Val(TextBox17.Text) / Val(TextBox5.Text)
Dim jall As Single = Val(TextBox12.Text) / Val(TextBox5.Text)
TextBox9.Text = Format(ccll , "0.00%")
TextBox20.Text = Format(jall, "0.00%")
TextBox18.Text = Format(xpshl, "0.00%")
TextBox19.Text = Format(shl, "0.00%")
TextBox10.Text = Val(TextBox5.Text) - Val(TextBox8.Text)
TextBox17.Text = Val(TextBox14.Text) + Val(TextBox15.Text) + Val(TextBox16.Text) - Val(TextBox12.Text)
TextBox13.Text = Val(TextBox7.Text) - Val(TextBox12.Text)
TextBox11.Text = Val(TextBox4.Text) - Val(TextBox12.Text)
Dim charu As Single = "insert into 任务单结案表 (任务单号,产出良率,损耗率,芯片损耗率,结案良率) values('" & h & "'," & ccll & "," & shl & "," & xpshl & "," & jall & ")"
任务单号不知道你是什么类型,数值型就去掉h前后的单引号,字符型就上面这样