菜单上做了个更新按键，执行代码：

Network.DownloadFile("ftp://ftp_XXX:ftp-XXX@XXXXXXXX/Update/Update.txt","D:\\data\\Update.txt","" ,"" ,False, 100000, True)

Network.DownloadFile("ftp://ftp_XXX:ftp-XXX@XXXXXXXX/Update/Update1.zip","D:\\data\\Update1.zip","" ,"" ,False, 100000, True)

Syscmd.Project.Update()

更新开始都正常，但是提示更新成功弹出报错对话框！报错内容为“未能启用约束。一行或多行中包含违反非空、唯一或外键约束的值 ”

 直接把update1.zip复制粘贴过去能否正常运行？

 是不是你程序本身的数据就有问题。

我是叫你把update1.zip解压出来复制粘贴覆盖原来的project文件夹。这样运行程序是否正常？

手动更新之后，打开项目是否正常？点击按钮更新之后，打开项目是否正常？

解压出来复制粘贴原来的project正常，点击按钮更新后，打开项目也正常！就是提示更新成功后，会弹出报错窗口，其他一切都正常！~不影响使用，但是怕交付不了！~

最关键，是点击按钮更新以后，是否真的更新成功了？

如果更新成功了，那就把错误屏蔽一下 http://www.foxtable.com/webhelp/scr/2655.htm

谢谢有点甜老师，这是最后的方法了！

我还在测试，这次更新我只是在一个窗口上加了一个从FTP下载文件的按键，按键的代码如下：

Dim ftp1 As new ftpclient
ftp1.host="xx.xx.xx.xx"
ftp1.Account = "xxx"
ftp1.password = "xxx"
Dim ts As DataRow = CurrentTable.DataTable.Find("[_Identify] = \'" & CurrentTable.Current("_Identify") & "\'" )
If ts IsNot Nothing
    Dim ls As List(of String) = ts.Lines("文件列")
    Dim dlg As New FolderBrowserDialog
    If dlg.ShowDialog = DialogResult.Ok Then
        Dim ph As String = dlg.SelectedPath
        For Each s As String In ls
            Dim ary() As String = s.split("/")
            Dim i As Integer = ary.length - 1
            Forms("请稍后").open
            If ftp1.Download(s,ph & "\\" & ary(i))= True Then
                Forms("请稍后").Close
                Messagebox.show("下载完成!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
            Else
                Forms("请稍后").Close
                Messagebox.show("下载失败!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
            End If
        Next
    End If
End If

在此之前直接用Syscmd.Project.Update()更新都是正常的！我刚尝试把这个按键去掉，同样还是报错！到底这个错误提示是表示什么意思呢？看别人的帖子，说是关联引起的！可更新前后关联我都没动过啊！

BeforeCloseProject事件中我没有写代码！~

刚测试发现，当打开软件后，同步当前任意一张表的时候，就会出现报错！

此主题相关图片如下：tip3.jpg

但是只是第一次同步的时候会出现，以后再怎么同步都正常，关掉软件重新打开后，还是会第一次同步的时候出现报错！

1、看看你的采购单，看数据库那里，是否设置了约束，是否有重复值？

2、如果直接拷贝发布后的项目过去运行，打开是否也是报错？