- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 系统有更新，必须更新，不可以取消，什么弄 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=176676)
-- 发布时间：2022/4/22 13:59:00
-- 系统有更新，必须更新，不可以取消，什么弄
系统有更新，必须更新，不可以取消，什么弄
-- 发布时间：2022/4/22 15:04:00
--
升级代码放到AfterOpenProject事件：http://www.foxtable.com/webhelp/topics/2934.htm
Update的语法：
Syscmd.Project.Update(Prom1, Prom2)
Prom1: 可选参数，逻辑型，没有发现新版本时，是否提示用户。
Prom2: 可选参数，逻辑型，发现新版本时，是否提示用户升级。
例如希望自动升级能够完全"静默"，发现新版本时不提示，自动开始升级，没有发现新版本时也不提示：
Syscmd.Project.Update(False,False)
-- 发布时间：2022/4/22 15:10:00
--
Syscmd.Project.Update(False,False)我就是这样的，这样可以取消，我不想让这个窗口可以人为取消关闭
-- 发布时间：2022/4/22 15:41:00
--
不可能，我测试没有弹出什么提示窗口
-- 发布时间：2022/4/22 17:20:00
--
此主题相关图片如下：微信图片_20220422171755.jpg
-- 发布时间：2022/4/22 17:21:00
--
AfterOpenProject事件全部代码发上来
-- 发布时间：2022/4/22 17:28:00
--
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:新建文本文档 (2).txt |
-- 发布时间：2022/4/22 17:31:00
--
通过什么方式升级的，http还是ftp
If Syscmd.Project.Update(False,False) = False then
Dim dt As Date = Date.Today.AddDays(10)
Dim dr As DataRow = DataTables("员工资料").Find("合同结束日期 <= #" & dt & "#")
If dr IsNot Nothing Then
MessageBox.Show("有员工合同即将到期!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
End If
If User.Type <> UserTypeEnum.Developer
TableCaptionVisible = False
End If
Output.Logs("").Save(ProjectPath & "登录标志.txt",True)
Dim fdr As DataRow
fdr = DataTables("营业款").sqlfind("日期= \'" & Date.Today & "\' And 店名= \'" & User.name & "\'" )
If fdr Is Nothing Then
fdr = DataTables("营业款").addnew
fdr("日期") = Date.Today
fdr("店名") = User.name
\'fdr("对账品名") = "linle"
fdr.save
End If
End If
-- 发布时间：2022/4/22 17:35:00
--
http
我单独单击Syscmd.Project.Update(False,False)，也是那样显示
[此贴子已经被作者于2022/4/22 17:41:37编辑过]
-- 发布时间：2022/4/23 9:24:00
--
我反馈一下