同时提取多行信息赋值 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

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("检验方法")

[此贴子已经被作者于2017/6/28 10:49:10编辑过]

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