Foxtable(狐表)用户栏目专家坐堂 → 发布后如何指定用户升级不同的版本


  共有2649人关注过本帖树形打印复制链接

主题:发布后如何指定用户升级不同的版本

帅哥哟,离线,有人找我吗?
xuzihang
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:332 积分:2471 威望:0 精华:0 注册:2012/6/23 11:15:00
发布后如何指定用户升级不同的版本  发帖心情 Post By:2023/10/20 10:00:00 [只看该作者]

老师, 发布后如何指定用户升级不同的版本
例如,最新版本需要 销售部 的赵三 升级  ,销售部李四不升级,人事部经理可以升级  人事部其他人不用升级。
下次升级时候在设置新的规则。

 回到顶部
帅哥,在线噢!
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110576 积分:562776 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By: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
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:332 积分:2471 威望:0 精华:0 注册:2012/6/23 11:15:00
  发帖心情 Post By: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

 回到顶部
帅哥,在线噢!
有点蓝
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110576 积分:562776 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By: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事件中实现自动升级


 回到顶部