主题：[求助]升级以后，仍提示升级

升级以后，仍提示升级；但是点击升级按钮后，提示已是最新版本。我写的代码对吗？

1、在AfterOpenProject的代码：

If Syscmd.Project.Update(False,False) = False Then '如果没有升级
    PopMessage("有更新,请在系统维护点击在线升级!","提示", PopIconEnum.ok, 10)
End If

2、升级按钮代码：
Syscmd.Project.Update()

甜老师，如果是局域网，升级文件地址是：\\10.28.102.15\升级\update.txt

第一句代码怎样改？

Dim hc As New HttpClient(UpdatePath & "/update.txt")

甜老师，你好。

这两天又出现升级后又提示升级的情况，我查看后发现：

1、在命令窗口执行Output.Show(PublishDate)，弹出：2018-01-26

2、自动打包生成的update.txt文件中是：2018-01-26 00:00:00|2018-3-3

我在说明中看到的update.tet文件内容格式为：2018-01-26|2018-3-3，并没有时间00:00:00；另外，说明中“......第一个日期必须和项目属性中设置的版本日期一致，否则会反复提示升级。”

http://www.foxtable.com/webhelp/index.htm?page=2934.htm

我这种不断提示升级情况，是否是“00:00:00”造成的？它又是如何产生的？怎样纠正？

蓝老师，你说的“可以手工去掉”，是指在生成的update.txt里手工去掉吧。

因为在发布窗口用时间输入框录入的时间格式只有日期，是看不到“00:00:00”，只是在发布以后的update.txt里才有的。

我升级提示用的是4楼代码，手动升级代码是：Syscmd.Project.Update()

点击按钮升级以后，再进入项目，程序确实变化了。

但是再次进入项目仍提示有新版本；点击手动升级按钮，也提示有新版本......

还会有什么原因？

version.txt 文件是：2018-3-3

我是用新版本发布后，又用新版本做的升级包。

1、AfterOpenProject代码：

try     '局域网

Dim str As String = FileSys.ReadAllText("//10.28.102.15/事务管理/update/update.txt")
Dim ud() As String = str.Split("|") '获取文件内容

Dim Sdate1 As Date = Cdate(ud(0)) '服务器update.txt发布日期
Dim Sdate2 As Date = Cdate(ud(1)) '服务器Version.txt发布日期
Dim Cdate1 As Date = PublishDate '客户端发布日期
Dim Cdate2 As Date = FileSys.ReadAllText(ProjectPath & "\Bin\Version.txt") '客户端Version.txt发布日期

If Sdate2 > Cdate2 OrElse Sdate1 > Cdate1 Then
    msgbox("有新版本,请在系统维护更新!")
    'Syscmd.Project.Update(False,False)  '静默升级代码
End If
catch ex As exception
    msgbox(ex.message)
    msgbox("下载失败")
End try

是不是没有升级成功，开发好的项目怎么看PublishDate？还有什么情况?

经测试：

升级后，重启项目，弹出的第三组日期没有变化 -- Cdate1

但是程序确实变化了（升级了）

因此还提示升级

1、只是AfterOpenProject代码里有，别的地方没有；

2、用的就是可执行文件。