click代码如下：

Dim rq As String = e.Form.Controls("DateTimePicker1").Value
Dim cpxh As String = e.Form.Controls("dropbox2").Value
Dim dj As String = e.Form.Controls("textbox5").Value
Dim sl As String = e.Form.Controls("NumericComboBox2").Value
If rq = "" Then
    MessageBox.Show("请输入销售日期,不能为空!", "错误提示")
ElseIf cpxh = "" Then
    MessageBox.Show("The product model cannot be empty,please enter产品型号不能为空,请输入!", "错误提示")
ElseIf sl = "" Then
    MessageBox.Show("The quantity cannot be empty,please enter(请输入数量,不能为空!)", "错误提示")
Else
    Dim tbl As Table = Tables("销售明细表")
    Dim r As Row = tbl.AddNew()
    r("订单号") = e.Form.Controls("TextBox2").Text
    r("产品型号") = e.Form.Controls("dropbox2").Text
    r("产品类别") = e.Form.Controls("产品类别").Text
    r("单价成本") = e.Form.Controls("单价成本").Text
    r("销售单价") = e.Form.Controls("TextBox5").Text
    r("数量") = e.Form.Controls("NumericComboBox2").Text
  
    If e.Form.Controls("NumericComboBox1").Value <> 0 Then
        MessageBox.Show(7)
        Dim r1 As Row = Tables("订单出库明细表").AddNew
        MessageBox.Show(9)
        r1("提货日期") = e.Form.Controls("datetimepicker1").Value
        MessageBox.Show(10)
        r1("订单号") = e.Form.Controls("TextBox2").Value
        MessageBox.Show(11)
        r1("产品型号") = e.Form.Controls("dropbox2").Value
        MessageBox.Show(12)
        r1("数量") = e.Form.Controls("NumericComboBox2").Value
        MessageBox.Show(13)
        r1("已提数量") = e.Form.Controls("NumericComboBox1").Value
        MessageBox.Show(14)
        r1.Save()  
        MessageBox.Show(15)
    End If
End If

代码执行到MessageBox.Show(14)后出现如下错误信息：

此主题相关图片如下：tim图片20180910120911.png

此主题相关图片如下：tim图片20180910120916.png

订单出库明细表：

 
此主题相关图片如下：tim图片20180910121439.png

请帮忙看看，谢谢！

全部删除关联，重新设置过了，问题依旧。如果把r1.Save()  屏蔽就不会。

这种错误经我测试，只是每天第一次新增订单的时候才会出现，后面的新增数据都不会出现该问题

把r1.save屏蔽后，保存按钮出现同样错误提示： 

If Tables("销售订单").Current.DataRow.RowState = DataRowState.Added AndAlso Tables("销售订单").Current IsNot Nothing Then
MessageBox.Show(1)
    If Tables("销售明细表").Current Is Nothing Then
        MessageBox.Show("No details cannot be saved 无订单明细,无法保存!", "Error 错误提示")
        Tables("销售订单").Current.Delete
MessageBox.Show(2)
    Else
        Tables("销售订单").Current("客户名称") = e.Form.Controls("DropBox3").Text
        Tables("销售订单").Current("客户电话") = e.Form.Controls("DropBox1").Text
        Tables("销售订单").Current("折扣") = e.Form.Controls("TextBox3").Text
        Tables("销售订单").Current("备注") = Tables("销售订单").Current("备注") & vbcrlf & e.Form.Controls("TextBox4").Text
MessageBox.Show(3)
        If Tables("销售订单").Current IsNot Nothing Then
MessageBox.Show(4)
            Tables("销售订单").Current.Save
MessageBox.Show(5)
            Tables("销售订单").AllowEdit = False
MessageBox.Show(6)
        End If
MessageBox.Show(7)
        For Each dr As Row In Tables("销售明细表").Rows
            dr.Save
        Next
    End If
End If

 问题出在MessageBox.Show(4)后的Tables("销售订单").Current.Save，这句。

为什么都是保存按钮