以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  紧急求救  (http://www.foxtable.com/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或者服务器重启一下