专家坐堂-[求助] 出现错误Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

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

dt1.Save()