以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]锁定行j禁止任何形势引用  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=177940)

--  作者:秋夜凉了
--  发布时间:2022/6/11 10:31:00
--  [求助]锁定行j禁止任何形势引用

图片点击可在新窗口打开查看此主题相关图片如下:001.jpg
图片点击可在新窗口打开查看


老师,请问锁定行后,禁止任何窗口,目录树等形势引用这条数据,需要从哪方面着手弄呢

另外
代码1

If e.Col.Name = "库存_冻结" Then \'只有经理才能冻结数据
    If User.Name <> "李海荣" Then
        e.Cancel = True
    End If
ElseIf e.Row("库存_冻结") = True Then \'如果此行已经审批了,则禁止修改
    e.Cancel = True 
End If

代码2

Select Case User.Name 
    Case "赵燕娟" , "李海荣" , "刘春霞", "涂达莉", "开发者"
        e.Cancel = False
    Case Else
        e.Cancel = True
End Select


代码2 的人怎么都可以操作代码1的列呢

--  作者:有点蓝
--  发布时间:2022/6/11 10:46:00
--  
其它使用数据的地方加上条件:库存_冻结=false,比如目录树

Dim tv As WinForm.TreeView
tv =e.Form.Controls(
"TreeView1")
tv.BuildTree(
"订单""产品|客户|雇员","
库存_冻结=false")