Dim cmd As new SQLCo mmand
Dim dt As DataTable
cmd.CommandText = "Se lect * From {SDBC_Sa}"
cmd.C
dt = c md.ExecuteReader(True)
For Each rr As DataRow In DataTables("生产任务单").Se lect("[PrintTimes] > = 1")
Dim fdr As DataRow = dt. Find("BarcodeData='" & rr("生产任务单号") & "'")
If fdr IsNot Nothing Then
rr("AssemblingStartingDate") = fdr("Date2")
rr("AssemblingFinishingDate") = fdr("Date")
rr("QtyCompleted") = fdr("Qty")
rr("Assembler") = fdr("Assembler")
rr("WKNumber") = fdr("WKNumber")
rr("MaterialPreparation") = fdr("MaterialPreparation")
Else
rr("AssemblingStartingDate") = Nothing
rr("AssemblingFinishingDate") = Nothing
rr("QtyCompleted") = Nothing
rr("Assembler") = Nothing
rr("WKNumber") = Nothing
rr("MaterialPreparation") = Nothing
End If
Dim cmd1 As new SQLC ommand
Dim dt1 As DataTable
cmd1.CommandText = "Se lect * From {ICMO}"
cmd1.C
dt1 = c md1.ExecuteReader(True)
Dim fdr1 As DataRow = dt1. Find("FBillNo='" & rr("生产任务单号") & "'")
If fdr1 IsNot Nothing Then
fdr1("FHeadSelfJ0194") = rr("AssemblingStartingDate")
fdr1("FHeadSelfJ0198") = rr("AssemblingFinishingDate")
fdr1("FHeadSelfJ0199") = rr("QtyCompleted")
fdr1("FHeadSelfJ01100") = rr("Assembler")
fdr1("FHeadSelfJ0195") = rr("WKNumber")
fdr1("FHeadSelfJ0193") = rr("MaterialPreparation")
End If
Next
dt1.Save()
加好友 
发短信
Post By：2021/2/16 22:55:00 [只看该作者]
此主题相关图片如下：捕获.png