如何从数据库复制内容到窗口表 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

求助：

项目设计使用的为SQL数据库，

数据库中设计了有货品表goods;

物料清单表goodscom,

加工单主表：加工单主表上选择要加工的货品

加工单细表：加工单细表是当次加工的物料清单；

设计了新增加工单的窗口，窗口中产联了“加工单细表”，窗口中有COMBOBOX插件选择本次需要加工的产品；

如何能实现在新增加工单窗口中，当选择好加工单主表上的产品编码后，

加工单明细表自动按数据库中的物料清单表带到明细表中，

关联：物料清单中的产品ID 等于加工单主表上选择的产品ID;

谢谢有点甜老师。使用以来得到您的多次耐心指点，再次感谢。

老师，产品明细还是不能复制到窗口中。

两种代码都不行

代码1如下

If goodsid.text <> "" Then

Dim Cols1() As String = {"goodsid","elemgid","quantity","masterqty","usetime","userdef1","userdef2","userdef3","userdef4"}

Dim Cols2() As String = {"goodsid","elemgid","quantity","masterqty","usetime","userdef1","userdef2","userdef3","userdef4"}

For Each dr1 As DataRow In DataTables("l_goodsbom").Select("[goodsid] = ' " & goodsid.text & " ' ")

Dim dr2 As DataRow = DataTables("scdcbom").AddNew()

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

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

End If

代码2如下：

If goodsid.text <> "" Then

Dim Cols1() As String = {"goodsid","elemgid","quantity","masterqty","usetime","userdef1","userdef2","userdef3","userdef4"}

Dim Cols2() As String = {"goodsid","elemgid","quantity","masterqty","usetime","userdef1","userdef2","userdef3","userdef4"}

For Each dr1 As DataRow In DataTables("l_goodsbom").Select("[goodsid] = ' " & goodsid.text & " ' ")

Dim dr2 As DataRow = DataTables("scdcbom").AddNew()

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

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

End If

请老师指导。

附件里项目，具体窗口为：配方指令---新增指令 ,产品选择后，点引入配方或引入配方2

下载信息 [文件大小：下载次数： ]
点击浏览该文件:生产下单系统.rar

1、数值列不需要单引号

2、选择窗口打开时已经清空l_goodsbom表，需要从后台取数据

Dim goodsid As WinForm.TextBox = e.Form.Controls("TextBox8")

If goodsid.text > "" Then

Dim Cols1() As String = {"goodsid","elemgid","quantity","masterqty","usetime","userdef1","userdef2","userdef3","userdef4"}

Dim Cols2() As String = {"goodsid","elemgid","quantity","masterqty","usetime","userdef1","userdef2","userdef3","userdef4"}

For Each dr1 As DataRow In DataTables("l_goodsbom").SQLSelect("[goodsid] = " & goodsid.text)

Dim dr2 As Row = Tables("新增指令_Table1").AddNew()

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

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

End If

代码2用法一样，参考什上面自己改

主题：如何从数据库复制内容到窗口表