以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]为什么不执行？  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=68533)
--  作者：hotday1972
--  发布时间：2015/5/20 7:06:00
--  [求助]为什么不执行？

请教，在prepareEdit这段代码为什么不执行？

 

If user.Group <> "经理" Then
    DataTables("事项清单").RemoveFor([隐藏] = True)   
End If
--  作者：hotday1972
--  发布时间：2015/5/20 8:22:00
--  
有人帮忙解决下么？多谢
--  作者：hotday1972
--  发布时间：2015/5/20 9:00:00
--  

改了下，结果出现一个大红叉！！！

If user.Group <> "经理" Then
    For Each r As Row In Tables("事项清单").Rows
        Dim filter As String = r("隐藏") = True
        Tables("事项清单").DataTable.RemoveFor(filter)
    Next
End If

 

Bin大师，帮忙看看，谢谢！
--  作者：hotday1972
--  发布时间：2015/5/20 9:05:00
--  
难道是少了双引号？！我再试试
--  作者：Bin
--  发布时间：2015/5/20 9:08:00
--  
不能在这个事件这么做, 正在编辑的行被删除的话.就会出错了
--  作者：大红袍
--  发布时间：2015/5/20 9:11:00
--  

 请写到afteropenproject时间，抑或Datacolchanged事件

 

If user.Group <> "经理" Then
    DataTables("事项清单").RemoveFor("[隐藏] = True")   
End

--  作者：hotday1972
--  发布时间：2015/5/20 9:15:00
--  
在afteropenproject里可以么？
--  作者：Bin
--  发布时间：2015/5/20 9:15:00
--  
可以的
--  作者：hotday1972
--  发布时间：2015/5/20 9:16:00
--  
谢谢，OK了！