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()可以升级并提示升级完成重新启动（也就升级成功)，很奇怪是这个一致没改过怎么会出现这一问题，怎么办，请老师帮查下原因，谢谢
加好友 
发短信
Post By：2019/11/13 22:52:00 [只看该作者]
