1、一个外部表：【网络教职工】，数据源在远程服务器
   两个数据文件，一个在本机 ProjectPath & "\\Data\\兴化教育信息数据库.mdb”
                 一个在服务器

2、\'-----把本地数据读取到表【网络教职工】中
Dim mg As New Merger
mg.SourcePath = ProjectPath &"\\Data\\某某教育信息数据库.mdb"    \'指定数据文件
mg.Password = "******"
mg.SourceTableName = "教职工信息表"
mg.DataTableName = "网络教职工"
mg.Filter = "台帐年月 = \'" & CurrentYM & "\' and 单位代码 = " & DWDM.text & " "
mg.Merge()

3、然后保存

For Each dr As DataRow In DataTables("网络教职工").Select("", "是否在职 desc,姓名")
   If dr.RowState <> DataRowState.Unchanged Then
        dr.save
    End If
Next

4、这时就会出现提示

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

这个提示不是一定出现，是偶尔出现，而且连续运行上述代码，就基本不再出现，请问这是什么原因？