- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 审核后不准删除行怎么写代码 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=61187)
-- 发布时间：2014/12/8 16:37:00
-- 审核后不准删除行怎么写代码
各位老师,点审核后不准删除行,不能编辑行怎么写代码?
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:审核后不准删除行.foxdb |
-- 发布时间：2014/12/8 16:44:00
--
审核后锁定此行
DataColChanged事件代码
If e.DataCol.name = "经理审核"
If e.DataRow("经理审核") = True
e.DataRow.Locked = True
End If
End If
-- 发布时间：2014/12/8 17:27:00
--
顺便问下czy老师, 假如有关联表的话,怎样在主表点审核后,子表同步自动审核并不能修改?
-- 发布时间：2014/12/8 17:36:00
--
以下是引用avatarasdf在2014-12-8 17:27:00的发言：
顺便问下czy老师, 假如有关联表的话,怎样在主表点审核后,子表同步自动审核并不能修改?
If e.DataCol.name = "经理审核"
If e.DataRow("经理审核") = True
e.DataRow.Locked = True
For Each cdr As DataRow In e.DataRow.GetChildRows("子表")
cdr.Locked = True
Next
End If
End If
-- 发布时间：2014/12/8 17:44:00
--
谢谢甜老师! 不过代码加进去了子表没有同步审核锁定,帮忙看下是不是代码少了什么
另外审核后因为锁定行了不能取消审核,该怎么设置?
| 下载信息 [文件大小： 下载次数： ] | |
| 点击浏览该文件:审核后不准删除行.foxdb |
-- 发布时间：2014/12/8 17:50:00
--
If e.DataCol.name = "经理审核"
e.DataRow.Locked = e.DataRow("经理审核")
For Each cdr As DataRow In e.DataRow.GetChildRows("订单明细")
cdr("经理审核") = e.DataRow("经理审核")
cdr.Locked = e.DataRow("经理审核")
Next
End If
-- 发布时间：2014/12/8 18:17:00
--
还要请教一下,因为审核后整行都锁定了不能取消审核,除了解锁行,有没有简便一点的办法取消审核?
-- 发布时间：2014/12/8 19:14:00
--
如下
| 下载信息 [文件大小： 下载次数： ] | |
| 点击浏览该文件:审核后不准删除行.foxdb |