以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  发布后如何指定用户升级不同的版本  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=188809)
--  作者：xuzihang
--  发布时间：2023/10/20 10:00:00
--  发布后如何指定用户升级不同的版本
老师， 发布后如何指定用户升级不同的版本
例如，最新版本需要 销售部 的赵三 升级  ，销售部李四不升级，人事部经理可以升级  人事部其他人不用升级。
下次升级时候在设置新的规则。
--  作者：有点蓝
--  发布时间：2023/10/20 10:11:00
--  
无法指定版本，只能控制要升级，或者不要升级

创建一个升级表，比如有列和数据：
名称,是否升级
张三,true
李四,false

AfterOpenProject事件升级代码
dim dr as datarow = datatables(“升级表”).find(“名称=\'" & user.name & "\'”)
dim 需要升级 as boolean = false
if dr isnot nothing andalso dr("是否升级")=true then
需要升级=true
end if
dim 是否升级 as boolean = false
if 需要升级=true then
是否升级 = Syscmd.Project.Update(False,False)
If 是否升级 = False Then \'如果没有升级
    Forms("窗口1").open()
    \'后续其它代码
End If
--  作者：xuzihang
--  发布时间：2023/11/7 18:19:00
--  
老师没好用，我是不是哪里写的不对 了
\'远程升级，对部分用户是否升级，
Dim dr As DataRow = DataTables("Users").find("Name = \'" & user.name & "\'")
Dim sj As Boolean = False
If dr IsNot Nothing AndAlso dr("升级") = True Then
    sj = True
End If
Dim 升级 As Boolean = False
If sj = True Then
    升级 = Syscmd.Project.Update(False, False)
    If 升级 = False Then \'如果没有升级
        Forms("欢迎页").open()
        \'后续其它代码
    End If \'在AfterOpenPoject事件中实现自动升级
End If
--  作者：有点蓝
--  发布时间：2023/11/7 20:04:00
--  
Dim 升级 As Boolean = False
If sj = True Then
    升级 = Syscmd.Project.Update(False, False)
End If
    If 升级 = False Then \'如果没有升级
        Forms("欢迎页").open()
        \'后续其它代码
    End If \'在AfterOpenPoject事件中实现自动升级