|
Dim ddbh As String = e.Form.controls("Textbox1").Text
Dim bh As String = e.Form.controls("textbox2").Text
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 14:37:00 [显示全部帖子]
