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

你想做一个升级提示？要这样写

try
    Dim hc As New HttpClient(UpdatePath & "/update.txt") 'http://foxtable.com/download/80222/update.txt
    Dim str As String = hc.GetData()
    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

改成

try
   
    Dim str As String = FileSys.ReadAllText(UpdatePath & "/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

foxtable的更新有两种；一种是小版本更新（对比第一个日期）；一种是大版本更新(对比第二个日期）

比如：如果你之前的程序是使用2017版foxtable发布的，现在又用2018版发布了一个更新包，是会更新【大版本】的。

去看看你之前程序的 version.txt 文件，看foxtable的版本号是什么。

加入代码弹出值看看，如

msgbox(Sdate1 & " " & Sdate2 & " " & Cdate1 & " " & Cdate2)

对比弹出的值，看是否正确。

1、你有没有设置过 PublishDate 的值？输出全部代码，搜索关键字【PublishDate】，看哪里有影响了。

2、试试使用【可执行文件名.exe】运行项目，而不是使用【进程名.exe】运行。

那不可能有问题。请认真测试一次。

或者，做一个新的空白的项目测试一次。

1、update.txt里面的内容 2018-03-09|2018-03-03 是你自己修改的？不要随意修改里面的日期啊，你发布的时候是哪个日期就是哪个日期啊。

2、我测试你的实例没问题(你应该是两个发布的项目都是2018-03-08的，然后你手动修改了update.txt照成的)，我重新发布了一个2018-03-09的程序测试正常。