以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  勾选权限问题  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=171245)

--  作者:实话实说
--  发布时间:2021/8/23 18:09:00
--  勾选权限问题

以下代码有问题:选择其它单元格也有消息框弹出。不知错在哪?

If e.Row("实施人") = _UserName Then
    If e.Col.name = "开始" Then
        e.Row("开始") = not e.Row("开始")
    Else
        e.Cancel = True
    End If
Else
    MessageBox.Show("只有当前实施人才能勾选!","提示")
End If

 


图片点击可在新窗口打开查看此主题相关图片如下:snap1.jpg
图片点击可在新窗口打开查看
[此贴子已经被作者于2021/8/23 18:31:56编辑过]

--  作者:实话实说
--  发布时间:2021/8/23 18:45:00
--  
已搞定
--  作者:实话实说
--  发布时间:2021/8/23 20:16:00
--  

在锁表(不可编辑)状态下,想通过实施人编辑“实施人备注”列。

下面代码出现问题:其它列不可编辑了。第三行代码可能不行,不知用什么代码实现。

 

If e.Col.Name = "实施人备注" Then
    If _UserName = e.Row("实施人") Then
        e.Table.StartEditing
    Else
        e.Cancel = True
        MessageBox.Show("只有当前实施人才能编辑!","提示")
    End If
Else
    e.Cancel = True      
End If

 


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


--  作者:有点蓝
--  发布时间:2021/8/23 20:32:00
--  
去掉红色代码即可
--  作者:实话实说
--  发布时间:2021/8/23 20:49:00
--  
我是在锁表状态下编辑,去掉红色代码就不能编辑了
--  作者:有点蓝
--  发布时间:2021/8/23 20:53:00
--  
只能去掉锁表状态
--  作者:实话实说
--  发布时间:2021/8/23 20:57:00
--  

那不行,实施人只能编辑“实施人备注”列,不能编辑其它列。去掉量行代码,下面代码好像可以。什么道理?

If e.Col.Name = "实施人备注" Then
    If _UserName = e.Row("实施人") Then
        e.Table.StartEditing
    Else
        e.Cancel = True
        MessageBox.Show("只有当前实施人才能编辑!","提示")
    End If
End If


--  作者:有点蓝
--  发布时间:2021/8/23 21:14:00
--  
我测试一样不能编辑
--  作者:有点蓝
--  发布时间:2021/8/23 21:15:00
--  
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:test.zip