以下代码能够在地个表的列名相同的情况下,自制数据到另一个表,如遇相同单号的数据则数量叠加.

If e.DataCol.Name = "审核" Then \'如果是已结帐列的内容变动
    If e.NewValue = True Then \'而且变动后的值是True(已勾选)
        Dim dr As DataRow = DataTables("产品资料").Find("条形码 = \'" & e.DataRow("条形码") & "\'")
        If dr Is Nothing Then
            Dim dr1 As DataRow = DataTables("产品资料").AddNew
            For Each dc As DataCol In DataTables("产品资料").DataCols
                dr1(dc.Name) = e.DataRow(dc.Name)
            Next
        Else
            dr("数量") = dr("数量") + e.DataRow("数量")
        End If
    End If
End If

现在,我的问题是.二个表的列名称不相同,

需要指定每一个列对应到另一个表的某个表,而我不懂如何写这个代码了.看了帮助好多次,不得要领.还请前辈帮忙一下.

看看帮助是如何处理相同列名和不同列名的复制的：

http://www.foxtable.com/help/topics/2292.htm