主题：未能启用约束。一行或多行中包含违反非空、唯一或外键约束的值

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，这句。

为什么都是保存按钮

有没有在后台数据库里设置表关联？

后台数据库没有设置表关联。

方法1、全部改为模拟关联：http://www.foxtable.com/webhelp/scr/2222.htm

1、采用模拟关联不能解决这个问题，因为还是要用订单号建立关联关系。

1、模拟关联肯定没有问题，因为不需要建立关联表
2、局域网多人使用一样可以使用正式编号，帮助仅仅是提供一种用法，不代表这种用法是上帝而不可侵犯。学习帮助最主要的还是学习帮助解决问题的逻辑，而不是完抄。
其实只需要保存更新[编号]表即可，业务表不保存也一样可以使用正式编号

项目中的订单号有两种方案：

1、采用网络环境下的复杂编号：此方案目前遇到“未能启用约束”的错误提示，应该是订单出库明细表保存的时候订单号从临时编号转为正式编号的瞬间引起。

2、只采用正式编号方案：销售订单的datacolchanged里面有写代码（已屏蔽）。此方案的问题是销售订单新增行后必须立即保存新增行，否则多人使用会出现订单号重复的问题。立即保存新增行带来的问题是行的状态就不是DataRowState.Added状态，好几个地方需要用到DataRowState.Added来做判断。比如导航窗口的TopicLinkClick中的代码（当前窗口有数据未保存需要转到其他窗口时提醒数据的保存）。

希望老师们帮我看看怎么解决局域网多人使用订单号重复的问题（两个方案中的一个，或者有更好的方案）。

 

测试方法：

此主题相关图片如下：tim截图20180910203037.jpg

按照此图1,2,3,4步骤进行。出现“未能启用约束”的错误信息只是在第一个订单时会出现，新增第二个的时候不会出现，后面的新增都不会（很奇怪）。如果删除今天所有的新增数据再重新打开项目，第一个新增行又会出现类似错误。

密码为888

[此贴子已经被作者于2018/9/11 14:44:50编辑过]