老师， 发布后如何指定用户升级不同的版本例如，最新版本需要 销售部 的赵三 升级 ，销售部李四不升级，人事部经理可以升级 人事部其他人不用升级。
下次升级时候在设置新的规则。
无法指定版本，只能控制要升级，或者不要升级
创建一个升级表，比如有列和数据：
名称,是否升级
张三,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
老师没好用，我是不是哪里写的不对 了
'远程升级，对部分用户是否升级，
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