以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  非逻辑列锁定  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=71521)
--  作者：yaojun
--  发布时间：2015/7/13 14:13:00
--  非逻辑列锁定

用了一个字符列，采用绘制的方式绘制“已审核”和“未审核”，用来锁定当前行和取消当前行锁定。我编辑代码如下：

If e.Row("审核") = "已审核" Then
  e.Cancel = True
Else
   e.Row("审核") = "未审核"
   e.Cancel = False
End If

现在想在窗口做个“修改”按钮，让“已审核”的行取消锁定变成“未审核”，求大红袍老师的代码

谢谢！

 


图片点击可在新窗口打开查看此主题相关图片如下：8.png
图片点击可在新窗口打开查看
--  作者：大红袍
--  发布时间：2015/7/13 14:30:00
--  

 直接修改 审核列 的值不就行了？

 

 Tables("表A").Current("审核") = "未审核"
--  作者：xuebai
--  发布时间：2015/7/13 14:32:00
--  
比如只有经理级别的可以取消审核，
If USER.Group = "经理" Then
    Syscmd.Row.UnLock()
    Tables("表名").Current("审核")=“未审核”
    Else
    messagebox.Show("你无权取消审核","提示", MessageBoxButtons.OK, MessageBoxIcon.Information)
End If
--  作者：yaojun
--  发布时间：2015/7/13 14:53:00
--  
谢谢两位，谢谢