我用了以下代码出现错误,

If e.DataRow("已发货") = True Then
    Dim r As Row = Tables("订单明细表").Current
    Dim dr As DataRow = DataTables("产品单据表").AddNew
    For Each dc As DataCol In DataTables("产品单据表").DataCols
        dr(dc.Name) = e.DataRow(dc.Name)
        dr("单据日期") = r("订货日期")
        dr("单据类型") = "订单"
        dr("产品型号") = r("产品型号")
        dr("产品名称") = r("产品名称")
        dr("产品规格") = r("产品规格")
        dr("产品颜色") = r("产品颜色")
        dr("单价") = r("销售价")
        dr("数量") = r("数量")
        dr("金额") = r("金额")
        dr("经手人") = r("操作员")
    Next
End If

此主题相关图片如下：5-4.jpg

我的订单明细表是没有单据类型列

另外我想自动保存产品单据表，要加什么代码

谢谢！！！

非常感谢你对我的帮助，我的订单明细表没有 订单 列，我想把 订单 2字填入 单据类型 列

呵呵，没弄懂你的：

    For Each dc As DataCol In DataTables("产品单据表").DataCols
        dr(dc.Name) = e.DataRow(dc.Name)

如果不加这两行，它会重复填入4行

For Each dc As DataCol In DataTables("产品单据表").DataCols
        dr(dc.Name) = e.DataRow(dc.Name)

那是自然的，dc.name 本来就含了“单据类型”列，

而你的e.DataRow(dc.Name)实际上就是Datatables("订单明细表").datarows(dc.name)

谢谢,错误提示已解决,

另外我想设置为行内容不能重复,要加什么代码

参考：

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