发布后如何指定用户升级不同的版本 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

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

共有2646人关注过本帖树形打印复制链接主题：发布后如何指定用户升级不同的版本

xuzihang

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：小狐帖子：332 积分：2471 威望：0 精华：0 注册：2012/6/23 11:15:00

发布后如何指定用户升级不同的版本 发帖心情

Post By：2023/10/20 10:00:00 [显示全部帖子]

老师，发布后如何指定用户升级不同的版本

例如，最新版本需要销售部的赵三升级，销售部李四不升级，人事部经理可以升级人事部其他人不用升级。

下次升级时候在设置新的规则。

xuzihang

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | 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

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