主题：[求助] 远程升级

 你这个问题比较麻烦。foxtable的自动更新太脑残。

 

 1、在beforeOpenProject事件判断是否需要升级

 

Network.DownloadFile("http://www.foxtable.com/download/80211/update.txt", "d:\update.txt" ,"" ,"" ,False, 100000, True)
Dim ary() As String = FileSys.ReadAllText("d:\update.txt").Split("|")

msgbox(ary(0))
msgbox(PublishDate)

If PublishDate < ary(0) Then
    msgbox("不是最新版")
End If

 

 2、如果需要升级，你的beforeLoadOuterTable事件，就写代码 e.cancel = true 意思是不加载任何表格。

 

 3、在AfterOpenProject事件，升级。

试试改成这样

 

Network.DownloadFile("http://119.23.33.1:8080/fz/update.txt", "d:\update.txt" ,"" ,"" ,False, 100000, True)
Dim ary() As String = FileSys.ReadAllText("d:\update.txt").Split("|")

If PublishDate < cdate(ary(0)) Then
    e.cancel = True   
End If

 

 你不要在 beforeLoadOuterTable 写。

 

 你有多少个表 beforeLoadOuterTable 就执行多少次的。

 

 定义一个public变量，在beforeOpenProject得到结果，记录起来。

 

 beforeOpenProject 你可以弹出 PublishDate 和 ary(0) 的值进行对比，看弹出的值是否正确。

 那就读取txt文件

 

Dim Cdate2 As Date = FileSys.ReadAllText(ProjectPath & "\Bin\Version.txt") '客户端Version.txt发布日期

回复9楼，可以

 

• PublishDate
  日期型变量，返回在项目属性中设置的项目发布日期。
  　
• UpdatePath
  字符型，用于设置或返回在线升级路径，有了这个变量，我们可以动态设置升级路径。
  　
• RemoteUpdate
  逻辑型，是否通过互联网升级。