以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  非逻辑列锁定  (http://www.foxtable.com/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
--  
谢谢两位,谢谢