你好!目的把需要产品的检验标准提取到检验报告里(AA产品是提取后的状态),帮我修改下代码
Dim r As WinForm.TextBox = e.Form.Controls("TextBox4")
Dim ct As Integer = DataTables("检验标准").SQLCompute("Count(产品名称)","产品名称 = '" & r.text & "'")
Dim dr As DataRow = DataTables("检验标准").SQLFind("产品名称","产品名称= '" & r.text & "'")
Tables("检验报告").addnew(ct)
Dim dr2 As DataRow = DataTables("检验报告").AddNew
If dr IsNot Nothing Then
dr2("检验项目") = dr("检验项目")
dr2("技术要求") = dr("技术要求")
dr2("标准上限") = dr("控制上限")
dr2("标准下限") = dr("控制下限")
dr2("检验方法") = dr("检验方法")
End If
检验标准 |
|
|
|
|
|
|
|
产品名称 |
检验项目 |
技术要求 |
控制上限 |
控制下限 |
检验方法 |
|
|
AA |
外观 |
AA1 |
6 |
2 |
AAA1 |
|
|
AA |
尺寸 |
AA2 |
10 |
5 |
AAA2 |
|
|
BB |
外观 |
BB1 |
35 |
30 |
BBB1 |
|
|
BB |
尺寸 |
BB2 |
50 |
45 |
BBB2 |
|
|
|
|
|
|
|
|
|
|
检验报告 |
|
|
|
|
|
|
|
产品名称 |
检验项目 |
技术要求 |
标准上限 |
标准下限 |
检验方法 |
样本01 |
样本02 |
AA |
外观 |
AA1 |
6 |
2 |
AAA1 |
|
|
AA |
尺寸 |
AA2 |
10 |
5 |
AAA2 |
|
|
|
|
|
|
|
|
|
|
|
|
|
|