以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  授权表如何实现不可复制？  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=174118)
--  作者：xnsiwei
--  发布时间：2022/1/1 22:24:00
--  授权表如何实现不可复制？
代码如下：
If User.Type = UserTypeEnum.User Then
    For Each dr As DataRow In DataTables("yh1").Select("用户名 = \'" & User.Name & "\'" )
        If dr.IsNull("列名") Then
            Tables(dr("授权项目")).Visible = Not dr("不可见")
            Tables(dr("授权项目")).AllowEdit = Not dr("不可编辑")
            Tables(dr("授权项目")).AllowClipBoard = Not dr("不可复制")
        Else
            Tables(dr("授权项目")).Cols(dr("列名")).Visible = Not dr("不可见")
            Tables(dr("授权项目")).Cols(dr("列名")).AllowEdit = Not dr("不可编辑")
            Tables(dr("授权项目")).Cols(dr("列名")).AllowClipBoard = Not dr("不可复制")
        End If
    Next
End If
显示错误：AllowClipBoard  不是 tables的成员
 请问应当如何通过授权表来实现是否可复制的控制？
[此贴子已经被作者于2022/1/1 22:34:03编辑过]
--  作者：xnsiwei
--  发布时间：2022/1/1 22:49:00
--  
已明白，把tables 改为datatables 就可
--  作者：xnsiwei
--  发布时间：2022/1/1 23:10:00
--  
新问题：
换用户登录错误提示：
.NET Framework 版本：4.0.30319.42000
Foxtable 版本：2021.12.30.1
错误所在事件：项目,LoadUserSetting
详细错误信息：
未找到类型“DataTable”的公共成员“Cols”。
--  作者：xnsiwei
--  发布时间：2022/1/2 12:45:00
--  
已解决： 
 DataTables(dr("授权项目")).Cols(dr("列名")).AllowClipBoard = Not dr("不可复制")
修改为：
  DataTables(dr("授权项目")).AllowClipBoard = Not dr("不可复制")