以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  窗口表权限  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=175954)

--  作者:125651911
--  发布时间:2022/3/25 0:07:00
--  窗口表权限
参考“可视化授权的实现”,完成授权,怎样让窗口表同步授权表的权限?

比如:授权表内的订单主表\\金额列锁定,订单明细表\\单价和金额列也锁定
  窗口内的table1绑定订单主表,table2绑定订单主表.订单明细表,
  需要窗口的table11和table2与授权表内的订单主表和订单明细表权限同步。

--  作者:有点蓝
--  发布时间:2022/3/25 8:51:00
--  
到窗口afterload调用授权代码对窗口表进行授权,比如

   dim dr As DataRow = DataTables("授权").find("表名 = \'订单主表\'" )
if dr isnot nothing then
        If dr.IsNull("列名") Then
            Tables("窗口1_table11").AllowEdit = Not dr("不可编辑")
        Else
            Tables("窗口1_table11").Cols(dr("列名")).Visible = Not dr("不可见")
            Tables("窗口1_table11").Cols(dr("列名")).AllowEdit = Not dr("不可编辑")
        End If
end if