- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 紧急求救 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=143115)
-- 发布时间：2019/11/13 22:52:00
-- 紧急求救
今天出现了个怪现象，重新发布的项目，发布时间也改了，但始终出现只要启动程序就要自动更新一次。
经测试,将update2直接解压到安装的目录就不重新升级，但不这样的话就启动一次升级一次。怎么办？
[此贴子已经被作者于2019/11/13 22:56:00编辑过]
-- 发布时间：2019/11/14 7:14:00
--
AfterOpenProject
If Syscmd.Project.Update(False,False) = False Then \'如果没有升级
TableCaptionVisible = False
Dim cmd As New SQLCommand
cmd.C
cmd.CommandText = "SEL * From {用户} Where [Name] Is Null"
_UserTable = cmd.ExecuteReader(True)
Forms("用户登录").Open()
If _UserName = "" Then
Syscmd.Project.Exit()
Return \'这个要加上,因为既然要退出,就不应该再执行后面的初始化代码了,否则会出错
Else
DataTables("用户").loadfilter ="name = \'" & _username & "\'"
DataTables("用户").load
Dim dr As Row = Tables("用户").Current
If ValidPIN(dr("身份证号"))=False
Forms("用户信息").open()
Else
Forms("开始").open()
End If
If js.Contains("教务主任")
Dim dr1 As DataRow = DataTables("用户").sqlfind("[group]= \'" & _usergroup & "\' and [是否可用]= 0")
If dr1 IsNot Nothing
Forms("用户审核").open()
End If
End If
End If
End If
之前一直是这样没改过，升级没问题，现在自动升级下截后不象以前那样提示升级完成重新启动，就出跳出用户登录窗口了，关了重启又会升级，重复一样的，(也就升级不成功）但我在程序里做了个按键Syscmd.Project.Update()可以升级并提示升级完成重新启动（也就升级成功)，很奇怪是这个一致没改过怎么会出现这一问题，怎么办，请老师帮查下原因，谢谢
-- 发布时间：2019/11/14 8:15:00
--
所有电脑都这样？
update.txt的内容发上来看看。找台电脑把杀毒软件关闭试试
-- 发布时间：2019/11/14 8:16:00
--
对
-- 发布时间：2019/11/14 8:16:00
--
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:update.txt |
AfterOpenProject 没有改过
[此贴子已经被作者于2019/11/14 8:17:06编辑过]
-- 发布时间：2019/11/14 8:35:00
--
我测试不出来问题。把ftp或者服务器重启一下