Dim Cols1() As String = {"订单编号","发货人","收货人","箱量","箱型","出口日期","起运港","目的港"}
Dim Cols2() As String = {"Orderno","consignor_company","consignee_company","container_volume","container_size","departure_date","port_departure","port_destination"}
For Each dr1 As DataRow In DataTables("出口订单").Select("")
Dim dr2 As DataRow = DataTables("出口单证").AddNew()
For i As Integer = 0 To Cols1.Length -1
dr2(Cols2(i)) = dr1(Cols1(i))
Next
If dr1("成交方式") = "CIF" Then
dr2("transaction_mode") = dr1("成交方式") & " " & dr1("目的港")
ElseIf dr1("成交方式") = "FOB" Then
dr2("transaction_mode") = dr1("成交方式") & " " & dr1("起运港")
End If
Next
这代码执行后，每输入一列，目标表就增加一行。如何解决？
加好友 
发短信
Post By：2016/10/26 17:00:00 [只看该作者]
