For Each rr As Row In Tables("生产").Rows
Dim dr As DataRow = DataTables("SDBC_Sa").Find( "BarcodeData = '" & rr("单号") & "'","assemblingStartingdate desc")
If dr IsNot Nothing Then
rr("AssemblingStartingDate") = dr("assemblingStartingdate")
End If
dr = DataTables("SDBC_Sa").Find( "BarcodeData = '" & rr("单号") & "'","assemblingFinishingdate desc")
If dr IsNot Nothing Then
rr("AssemblingFinishingDate") = dr("assemblingFinishingdate")
End If
加好友 
发短信
Post By：2021/1/10 22:21:00 [显示全部帖子]
