Foxtable(狐表) → 用户栏目 → 专家坐堂 → 非逻辑列锁定


  共有2260人关注过本帖树形打印复制链接

主题：非逻辑列锁定
帅哥哟，离线，有人找我吗？
yaojun
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：二尾狐 帖子：576 积分：4731 威望：0 精华：0 注册：2014/7/3 15:28:00 		非逻辑列锁定  发帖心情 Post By：2015/7/13 14:13:00 [只看该作者]

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

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

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

谢谢！

 


图片点击可在新窗口打开查看此主题相关图片如下：8.png
图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
大红袍
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00 		  发帖心情 Post By：2015/7/13 14:30:00 [只看该作者]

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

 

 Tables("表A").Current("审核") = "未审核"
 回到顶部
帅哥哟，离线，有人找我吗？
xuebai
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：133 积分：2273 威望：0 精华：0 注册：2008/9/1 8:41:00 		  发帖心情 Post By：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
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：二尾狐 帖子：576 积分：4731 威望：0 精华：0 注册：2014/7/3 15:28:00 		  发帖心情 Post By：2015/7/13 14:53:00 [只看该作者]

谢谢两位，谢谢

 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04688 秒, 4 次数据查询