- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 行编辑问题 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=10674)
-- 发布时间：2011/6/17 10:58:00
-- 行编辑问题
编辑某行记录时自动记录[开单]者,如何排除[审核]人的编辑
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目2.table |
-- 发布时间：2011/6/17 12:01:00
--
不懂,你的代码是跟着用户名走的
-- 发布时间：2011/6/17 12:02:00
--
我们先来看看第一种情况如何实现，假定在一个客户消费数据表，有一逻辑列，名为“已结帐”；如果某一行的已结帐列被勾选，那么我们除了经理之外，员工不可以再修改该行。
实现的代码很简单，在该表的PrepareEdit事件中输入：
If e.Row("已结帐") = True
AndAlso User.Group <>
"经理"
Then
e.Cancel
= True
End
If
-- 发布时间：2011/6/17 12:32:00
--
我们先来看看第一种情况如何实现，假定在一个客户消费数据表，有一逻辑列，名为“已结帐”；如果某一行的已结帐列被勾选，那么我们除了经理之外，员工不可以再修改该行。
实现的代码很简单，在该表的PrepareEdit事件中输入：
If e.Row("已结帐") = True
AndAlso User.Group <> "经理"
Then
e.Cancel = True
End
If
我的需求是这样的:开单员可能有几个可编辑该表(不是同时)首先由开单员编辑行数据,然后记录该行数据是哪个开单员编辑的.主管对该行数据审核,即使审核后开单员也可编辑.如果只有开单员操作的话,只需在表的DataColChanged设置e.DataRow("开单") = User.Name & " " & Date.Now就行,现在有审核人操作,上面的代码就不能满足要求了.如何排除审核人的操作.
-- 发布时间：2011/6/17 14:21:00
--
如何排除审核人的操作:
If User.Group = User.Name And User.Group <> "审核人"
e.DataRow("开单") = User.Name & " " & Date.Now
end if
-- 发布时间：2011/6/17 14:22:00
--
那么 e.DataRow.("开单")设定不是空值,这个列不要操作行不?
-- 发布时间：2011/6/17 20:55:00
--
不好意思,刚回来.还是不能满足4楼需求
-- 发布时间：2011/6/17 22:42:00
--
我的需求是这样的:开单员可能有几个可编辑该表(不是同时)首先由开单员编辑行数据,然后记录该行数据是哪个开单员编辑的.主管对该行数据审核,即使审核后开单员也可编辑.如果只有开单员操作的话,只需在表的DataColChanged设置e.DataRow("开单") = User.Name & " " & Date.Now就行,现在有审核人操作,上面的代码就不能满足要求了.如何排除审核人的操作.
感觉一头雾
-- 发布时间：2011/6/17 23:14:00
--
再描述一遍：除了主管，（只勾选[审核]列）其他登录者只要进行了编辑，都会在[开单]列留下登录名和最近编辑的时间，不论主管是否勾选了[审核]。这样可以明确责任。
-- 发布时间：2011/6/18 8:28:00
--
顶一下