Select Case e.DataCol.Name
Case "订单编号","发货人","收货人","箱量","箱型","出口日期","起运港","目的港"
If e.DataRow.IsNull("订单编号") = False Then
Dim Cols1() As String = {"发货人","收货人","箱量","箱型","出口日期","起运港","目的港"}
Dim Cols2() As String = {"consignor_company","consignee_company","container_volume","container_size","departure_date","port_departure","port_destination"}
Dim dr As DataRow
dr = DataTables("出口单证").Find("Orderno = '" & e.DataRow("订单编号") & "'")
If dr Is Nothing Then
dr = DataTables("出口单证").AddNew()
dr("Orderno") = e.DataRow("订单编号")
End If
For i As Integer = 0 To Cols1.Length -1
dr(Cols2(i)) = e.DataRow(Cols1(i))
Next
If e.DataRow("成交方式") = "CIF" Then
dr("transaction_mode") = e.DataRow("成交方式") & " " & e.DataRow("目的港")
ElseIf e.DataRow("成交方式") = "FOB" Then
dr("transaction_mode") = e.DataRow("成交方式") & " " & e.DataRow("起运港")
End If
End If
End Select
加好友 
发短信
Post By：2016/10/26 17:30:00 [显示全部帖子]
