以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  发布需要重新连接数据源  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=110189)
--  作者：有点甜
--  发布时间：2017/11/28 16:10:00
--  
你数据库文件夹，要放到发布后的文件夹publish/project文件夹下，才行。
--  作者：有点甜
--  发布时间：2017/11/28 16:35:00
--  
回复3楼，发布一个空白项目，然后拷贝过去运行，有没问题？
--  作者：有点蓝
--  发布时间：2017/11/28 17:24:00
--  
在项目中登录有没有问题？

检查一下权限，和这个用户登录有关的操作和数据
--  作者：有点甜
--  发布时间：2017/11/28 18:21:00
--  
以下是引用nuoyan88在2017/11/28 16:58:00的发言：

老师，现在出现另一个问题，我用开发者密码账号登进去没有问题，但是用另外用户的账号登录进去表加载完后没有任何反应了

 

看看你【项目属性】的代码写了什么代码，把代码注释掉，是否还有问题？一般是里面代码有问题。
--  作者：有点甜
--  发布时间：2017/11/29 21:38:00
--  

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
--  作者：有点甜
--  发布时间：2017/11/29 22:10:00
--  

参考

 

http://www.foxtable.com/webhelp/scr/1268.htm

 

http://www.foxtable.com/webhelp/scr/2757.htm

 

http://www.foxtable.com/webhelp/scr/2752.htm