主题：同时提取多行信息赋值

Dim r As WinForm.TextBox = e.Form.Controls("TextBox4")
For Each dr As DataRow In DataTables("检验标准").Select("产品名称= '" & r.text & "'")
    Dim dr2 As DataRow = DataTables("检验报告").AddNew    

    dr2("产品名称") = dr("产品名称")
    dr2("检验项目") = dr("检验项目")
    dr2("技术要求") = dr("技术要求")
    dr2("标准上限") = dr("控制上限")
    dr2("标准下限") = dr("控制下限")
    dr2("检验方法") = dr("检验方法")
Next