Dim ddbh As String = e.Form.controls("Textbox1").Text
Dim bh As String = e.Form.controls("textbox2").Text
If DataTables("订单表").Find("订单编号='" & bh & "'") IsNot Nothing Then
msgbox("已存在此订单号" & bh)
Return
End If
Dim ts() As String = {"成衣部位表","加工费用表","车工费用表","辅料表","订单表"}
For Each t As String In ts
For Each dr1 As DataRow In DataTables(t).Select("订单编号='" & ddbh & "'")
Dim dr2 As DataRow = DataTables(t).AddNew()
For Each dc As DataCol In DataTables(t).DataCols
If dc.name = "订单编号" Then
dr2("订单编号") = bh
Else
dr2(dc.Name) = dr1(dc.name)
End If
Next
Next
Next
加好友 
发短信
Post By：2017/5/24 13:10:00 [只看该作者]
