专家坐堂-窗口表选中行插入指定表Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Dim Cols1() As String = {"挂标日期", "生产批次", "成品编码", "成品描述", "优先顺序", "材料编码", "材料描述", "规格型号", "挂标数量", "加工工序", "加工内容", "库位", "备注"}

Dim Cols2() As String = {"挂标日期", "生产批次", "成品编码", "成品描述", "优先顺序", "材料编码", "材料描述", "规格型号", "挂标数量", "加工工序", "加工内容", "库位", "备注"}

For Each dr1 As DataRow In DataTables("配件需求明细_明细查询").Select("")

Dim dr2 As DataRow = DataTables("欠料分析明细").AddNew()

For i As Integer = 0 To Cols1.Length - 1

dr2(Cols2(i)) = dr1(Cols1(i))

DataTables("配件需求明细_明细查询").Save()

DataTables("欠料分析明细").Save()