你这个问题比较麻烦。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事件,升级。