以下内容为程序代码:

1 Dim nr As DataRow = DataTables("检验").AddNew
2 nr("产品批号") = e.form.controls("TextBox2").Text
3 nr("复合膜批号") = e.form.controls("TextBox3").Text
4 nr("产品异常单号") = e.form.controls("TextBox4").Text
5 nr("品检日期") = e.form.controls("TextBox1").Text
6 nr("品检机检验员") = e.form.controls("TextBox5").Text
7 nr("品检机") = e.form.controls("NumericComboBox1").Text
8 nr("品检机检验米数") = e.form.controls("NumericComboBox2").Text
9 nr("复查日期") = e.form.controls("TextBox13").Text
10 nr("复查人工检验员") = e.form.controls("TextBox6").Text
11 nr("复查人工") = e.form.controls("TextBox7").Text
12 nr("复查人工检验米数") = e.form.controls("NumericComboBox3").Text
13 nr("43残留") = e.form.controls("NumericComboBox5").Text
14 nr("44铝箔残留") = e.form.controls("NumericComboBox6").Text
15 nr("45缺口断线") = e.form.controls("NumericComboBox7").Text
16 nr("46套位偏移") = e.form.controls("NumericComboBox8").Text
17 nr("47拖尾连线") = e.form.controls("NumericComboBox9").Text
18 nr("48表面脏污") = e.form.controls("NumericComboBox10").Text
19 nr("49折痕起皱") = e.form.controls("NumericComboBox11").Text
20 nr("50其他") = e.form.controls("NumericComboBox12").Text
21 nr("51差异数") = e.form.controls("NumericComboBox13").Text
22 nr("61密集针孔") = e.form.controls("NumericComboBox14").Text
23 nr("62分切偏移") = e.form.controls("NumericComboBox15").Text
24 nr("63尺寸不良") = e.form.controls("NumericComboBox16").Text
25 nr("64铆接不良") = e.form.controls("NumericComboBox17").Text
26 nr("其他备注") = e.form.controls("TextBox15").Text
27 nr("NG数量") = e.form.controls("TextBox8").Text
28 nr("接头数") = e.form.controls("TextBox9").Text
29 nr("NG数量A") = e.form.controls("TextBox10").Text
30 nr("NG数量B") = e.form.controls("TextBox11").Text
31 nr("NG数量C") = e.form.controls("TextBox12").Text
32 nr("NG数量D") = e.form.controls("TextBox16").Text
33 nr("NG数量E") = e.form.controls("TextBox17").Text
34 nr("NG数量F") = e.form.controls("TextBox18").Text
35 nr("NG数量G") = e.form.controls("TextBox19").Text
36 nr("NG数量H") = e.form.controls("TextBox20").Text
37 nr("NG数量I") = e.form.controls("TextBox21").Text
38 nr("NG数量J") = e.form.controls("TextBox22").Text
39
40 Dim dt As Date = Date.now
41 DataTables("检验").Save()
42 MessageBox.show((Date.now - dt).TotalSeconds)
43
44 e.form.controls("TextBox1").Text = Nothing
45 e.form.controls("TextBox2").Text = Nothing
46 e.form.controls("TextBox3").Text= Nothing
47 e.form.controls("TextBox4").Text= "NA"
48 e.form.controls("TextBox5").Text= Nothing
49 e.form.controls("NumericComboBox1").Text= Nothing
50 e.form.controls("NumericComboBox2").Text= Nothing
51 e.form.controls("TextBox6").Text= Nothing
52 e.form.controls("TextBox7").Text= Nothing
53 e.form.controls("TextBox8").Text= Nothing
54 e.form.controls("TextBox9").Text = 0
55 e.form.controls("NumericComboBox3").Text= Nothing
56 e.form.controls("NumericComboBox5").Text= Nothing
57 e.form.controls("NumericComboBox6").Text= Nothing
58 e.form.controls("NumericComboBox7").Text= Nothing
59 e.form.controls("NumericComboBox8").Text= Nothing
60 e.form.controls("NumericComboBox9").Text= Nothing
61 e.form.controls("NumericComboBox10").Text= Nothing
62 e.form.controls("NumericComboBox11").Text= Nothing
63 e.form.controls("NumericComboBox12").Text= Nothing
64 e.form.controls("NumericComboBox13").Text= Nothing
65 e.form.controls("NumericComboBox14").Text= Nothing
66 e.form.controls("NumericComboBox15").Text= Nothing
67 e.form.controls("NumericComboBox16").Text= Nothing
68 e.form.controls("NumericComboBox17").Text= Nothing
69 e.Form.controls("TextBox15").Text = Nothing
70 e.form.controls("TextBox8").Text = Nothing
71 e.form.controls("TextBox9").Text = 0
72 e.form.controls("TextBox10").Text =Nothing
73 e.form.controls("TextBox11").Text= Nothing
74 e.form.controls("TextBox12").Text= Nothing
75 e.form.controls("TextBox13").Text= Nothing
76 e.form.controls("TextBox16").Text= Nothing
77 e.form.controls("TextBox17").Text= Nothing
78 e.form.controls("TextBox18").Text= Nothing
79 e.form.controls("TextBox19").Text= Nothing
80 e.form.controls("TextBox20").Text= Nothing
81 e.form.controls("TextBox21").Text= Nothing
82 e.form.controls("TextBox22").Text= Nothing