Dim t1 As Table = Tables("生产任务单")
Dim nmb() As String = {"生产任务单号","产品名称","数量","PrintTime"}
Dim nma() As String = {"生产任务单号","PartNo","Qty","PrintTime"}
For r As Integer = t1.TopPosition To t1.BottomPosition
Dim r1 As Row = t1.rows(r)
Dim dr As DataRow = DataTables("PrintHistory").Find("PartNo='" & r1("PartNo") & "'")
If dr Is Nothing Then
dr = DataTables("PrintHistory").AddNew
For i As Integer = 0 To nma.Length - 1
dr(nma(i)) = r1(nmb(i))
Next
End If
Next
加好友 
发短信
Post By：2019/8/31 8:01:00 [显示全部帖子]
