|
Dim str As String = Tables("发货清单").Current("预备发货单号")
For Each dr As DataRow In DataTables("发货清单").Select("预备发货单号 = '" & str & "'")
Dim fdr As DataRow = DataTables("发货记录").Find("ID = '" & dr("ID") & "'")
If fdr Is Nothing Then
Dim t As Integer = dr("数量")
For i As Integer = 1 To t
Dim r As Row = Tables("发货记录").AddNew()
r("ID") = dr("ID")
Next
End If
Next
DataTables("发货记录").Save()
MainTable = Tables("发货清单")
| 
加好友 
发短信
Post By：2017/12/17 19:05:00 [显示全部帖子]
