Foxtable(狐表)用户栏目专家坐堂 → [求助]审核后不得修改数据的代码


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

主题:[求助]审核后不得修改数据的代码

帅哥哟,离线,有人找我吗?
ZHX241806
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:393 积分:2498 威望:0 精华:0 注册:2013/4/17 6:41:00
[求助]审核后不得修改数据的代码  发帖心情 Post By:2013/12/12 18:42:00 [只看该作者]

我表中有逻辑列(即审核列)A,数据列B,数据列C,当数据列B和C填好数据后,在逻辑列A中打勾后,数据列B和C中的数据就无法修改,如果需要修改,必须先去掉逻辑列中的勾再进行修改,请问高手们代码如何写,谢谢!!!


 回到顶部
帅哥哟,离线,有人找我吗?
sloyy
  2楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:九尾狐 帖子:2180 积分:13810 威望:0 精华:2 注册:2012/2/25 10:59:00
  发帖心情 Post By:2013/12/12 19:16:00 [只看该作者]

If Tables("表A").current("A") =True Then
 Dim cl As Col
cl = Tables("表A").Cols("B")
cl.AllowEdit = False
End If

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2013/12/12 19:17:00 [只看该作者]


 回到顶部
帅哥哟,离线,有人找我吗?
ZHX241806
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:393 积分:2498 威望:0 精华:0 注册:2013/4/17 6:41:00
  发帖心情 Post By:2013/12/12 19:29:00 [只看该作者]

上面这个代码刚试过,如果我需要修改数据,那就无法修改了,我希望去掉逻辑列的勾即可以修改数据,请问代码如何写?


 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2013/12/12 19:35:00 [只看该作者]

 参考3楼的例子

If (e.Col.Name = "B" OrElse e.Col.name = "C") AndAlso e.Row("A") = True Then
    e.Cancel = True
End If

 回到顶部
帅哥哟,离线,有人找我吗?
ZHX241806
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:393 积分:2498 威望:0 精华:0 注册:2013/4/17 6:41:00
  发帖心情 Post By:2013/12/12 19:45:00 [只看该作者]

请问有点甜,我刚试过不行,不知为什么,请帮忙再看看,谢谢!!!

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2013/12/12 19:46:00 [只看该作者]

 写到prepareEdit事件里去。

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2013/12/12 19:47:00 [只看该作者]

 如果不是在表里直接修改的,你要写 datacolchanging的代码,具体内容都在3楼了。

 回到顶部
帅哥哟,离线,有人找我吗?
ZHX241806
  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:393 积分:2498 威望:0 精华:0 注册:2013/4/17 6:41:00
  发帖心情 Post By:2013/12/12 19:58:00 [只看该作者]

太谢谢甜了.请问如果在表直接修改的话,那三楼的代码写在那里最好呢!

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2013/12/12 20:08:00 [只看该作者]

 回复9楼,写到prepareEdit事件比较好。用5楼的代码。

 回到顶部
总数 11 1 2 下一页