主题：求助

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

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

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

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

谢谢！！！