以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  重复填充  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=110247)
--  作者：有点甜
--  发布时间：2017/11/29 21:17:00
--  
贴出你导入的代码。
--  作者：有点甜
--  发布时间：2017/11/29 21:32:00
--  

试试这样写。

 

Dim t1 As Table = e.Form.Controls("毛坯工序").Table
Dim h As New Filler
h.SourceTable = DataTables("产品工艺路线") \'指定数据来源
h.DataTable =  t1.DataTable
h.Fill()

--  作者：有点甜
--  发布时间：2017/11/29 22:04:00
--  
Dim t1 As Table = e.Form.Controls("毛坯工序").Table
Dim h As New Filler
h.SourceTable = DataTables("产品工艺路线") \'指定数据来源
h.DataTable =  t1.DataTable
h.filter = "成品编码 in (\'" & DataTables("毛坯工序维护_条码维护").GetComboListString("成品编码").replace("|", "\',\'") & "\')"
h.Fill()
--  作者：有点甜
--  发布时间：2017/11/29 22:35:00
--  

这样写代码

 

Dim t1 As DataTable = e.Form.Controls("毛坯工序").Table.DataTable
Dim dt1 As DataTable = DataTables("毛坯工序维护_条码维护")
Dim dt2 As DataTable = DataTables("产品工艺路线")
Dim Cols1() As String = {"成品编码","毛坯编码"}
Dim Cols2() As String = {"成品编码","毛坯编码"}
Dim Cols3() As String = {"加工工序","加工内容","成品描述"}
Dim Cols4() As String = {"加工工序","加工内容","成品描述"}
For Each dr1 As DataRow In dt1.Select("")
    For Each dr3 As DataRow In dt2.Select("成品编码 = \'" & dr1("成品编码") & "\'")
        Dim dr2 As DataRow = t1.AddNew()
        For i As Integer = 0 To Cols1.Length -1
            dr2(Cols2(i)) = dr1(Cols1(i))
        Next
        For i As Integer = 0 To Cols3.Length -1
            dr2(Cols4(i)) = dr3(Cols3(i))
        Next
    Next
Next