重复行 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

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))

If dr1("成交方式") = "CIF" Then

dr2("transaction_mode") = dr1("成交方式") & " " & dr1("目的港")

ElseIf dr1("成交方式") = "FOB" Then

dr2("transaction_mode") = dr1("成交方式") & " " & dr1("起运港")

End If

这代码执行后，每输入一列，目标表就增加一行。如何解决？

代码写在哪里的？没看出和输入一列有什么关系

写【出口订单】的datecollchanged

简单说吧，要把A表的部分列跨表填入B表，A表数据刷新的时候，B表数据也刷新。保持数据的一致性。

1楼代码执行没有问题，但是源表输入一个数据会在目标表增加一行，能否加一个代码，加一个判断条件，比如根据某一列来控制。有同名的就更改数据，没有同名的才新增行。

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))

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 Select

十分感谢，很好用

主题：重复行