以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  代码无实现不见  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=184586)

--  作者:lgz518
--  发布时间:2022/12/14 16:52:00
--  代码无实现不见
需求:外部数据源,当前用户的角色为“普通查询”,入库明细是副表,入库查询窗口打开后“单价、金额”为不可见

下面代码二种都不能实现,如何实现?
If _UserRole ="普通查询" Then

  Tables("入库查询_入库明细").Cols.Remove("单价")
   Tables("入库查询_入库明细").Cols.Remove("金额")
End If 




If _UserRole = "普通查询" Then
    
    Tables("入库明细").Cols.Remove("单价")
    Tables("入库明细").Cols.Remove("金额")
End If 

--  作者:有点蓝
--  发布时间:2022/12/14 17:17:00
--  
代码放在哪里的?

调试
msgbox(_UserRole)
If _UserRole ="普通查询" Then
msgbox(Tables("入库查询_入库明细").Cols.contains("单价"))
  Tables("入库查询_入库明细").Cols.Remove("单价")
msgbox(Tables("入库查询_入库明细").Cols.contains("单价"))
   Tables("入库查询_入库明细").Cols.Remove("金额")
End If 

--  作者:lgz518
--  发布时间:2022/12/14 17:34:00
--  
入库查询窗口的窗口打开后事件里
--  作者:lgz518
--  发布时间:2022/12/14 17:41:00
--  

AfterLoad



2楼代码测试,弹出窗口无内容