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


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

主题：发布后如何指定用户升级不同的版本
帅哥哟，离线，有人找我吗？
xuzihang
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

老师， 发布后如何指定用户升级不同的版本
例如，最新版本需要 销售部 的赵三 升级  ，销售部李四不升级，人事部经理可以升级  人事部其他人不用升级。
下次升级时候在设置新的规则。
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110574 积分：562760 威望：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


加好友 发短信
等级：超级版主 帖子：110574 积分：562760 威望：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事件中实现自动升级
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.03711 秒, 4 次数据查询