主题：[原创]客户端自动升级，不存在新增的表

1、用户使用已发布的程序可以正常工作

 肯定是你的【项目事件】有问题。逻辑上肯定有问题。你可以尝试把代码都删除再测试。

项目有30个外部表，其中有一个可视化授权表，是不是要控制可视化授权表最后一个加载，怎样控制?

可视化授权带放在哪个事件？完整代码贴出来

loadusersetting事件代码：
For Each t As Table In Tables
    t.Visible = True
    t.AllowEdit = True
    For Each c As Col In t.Cols
        c.Visible = True
        c.AllowEdit = True
    Next
Next
Tables("授权表").Visible = (User.Type <> UserTypeEnum.User )
If User.Type = UserTypeEnum.User Then
    For Each dr As DataRow In DataTables("授权表").Select("用户名 = '" & User.Name & "'" )
        If dr.IsNull("列名") Then
            Tables(dr("表名")).Visible = Not dr("不可见")
            Tables(dr("表名")).AllowEdit = Not dr("不可编辑")
        Else
            Tables(dr("表名")).Cols(dr("列名")).Visible = Not dr("不可见")
            Tables(dr("表名")).Cols(dr("列名")).AllowEdit = Not dr("不可编辑")
        End If
    Next
End If

If User.Name = "王一军" Then
    DataTables("劳动合同").LoadFilter = ""
Else
    DataTables("劳动合同").LoadFilter = "用户 = '" & User.Name & "'"
End If
DataTables("劳动合同").Load()

afteropenproject事件代码：
Syscmd.Project.Update()
If Syscmd.Project.Update(False,False) = False Then '如果没有升级
    '原AfterOpenProject事件代码
End If

Select Case User.Name
    Case "胡冰","叶敏辉"
        Tables("劳动合同").Cols.Remove("合同编号")
        Tables("劳动合同").Cols.Remove("合同确认")
        Tables("劳动合同").Cols.Remove("a1")
        Tables("劳动合同").Cols.Remove("d6")
End Select
If User.Name <> "王一军" Then
    Tables("劳动合同").Cols.Remove("用户")
End If

1、你尝试把LoadUserSetting事件的代码删除；

 

2、AfterOpenProject这样写

 

If Syscmd.Project.Update(True, True) = False Then '如果没有升级
    Select Case User.Name
        Case "胡冰","叶敏辉"
            Tables("劳动合同").Cols.Remove("合同编号")
            Tables("劳动合同").Cols.Remove("合同确认")
            Tables("劳动合同").Cols.Remove("a1")
            Tables("劳动合同").Cols.Remove("d6")
    End Select
    If User.Name <> "王一军" Then
        Tables("劳动合同").Cols.Remove("用户")
    End If
End If

 

 

1、按照老师1、2操作后，自动升级没有问题了，但是每个用户都可以看到所有的外部表了；

2、重新复制帮助‘可视化授权的实现’中的代码到项目事件LoadUserSetting中，限制用户只能看自己的表；

3、开发者新增一个表，没有在授权表中做限制，发布后，所有用户可以自动升级成功，并且能看到这个新增的表；

4、问题出在开发者新增一个表，并且在授权表中限制部分用户看到这个表，发布后，除管理员外的所有用户都不能自动升级，提示不存在新增表的table;

5、管理员删除授权表中限制用户看到这个表的所有行，用户就可以自动升级了，但是都能看到这个新增的表了

6、管理员重新在授权表中限制用户看到这个表，用户就看不到了，所以问题还是没有解决。请老师再指导一下。

LoadUserSetting事件，如果删除，和不报错是么？

 

你LoadUserSetting执行时，判断一下表名

 

If Tables.Contains(dr("表名")) Then

    '原本的权限设置代码

End If

多谢老师！问题已经解决。如果我的系统新增了一个“表A”，我在LoadUserSetting事件开始位置先加载表A，再卸载表A就可以了。

datatables.load("表A")

if datatables.contains("表A")  then

   datatables.unload("表A")

end if

你在设置表权限的时候，判断一下就好了啊，看8楼代码。