- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]审核 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=194456)
-- 发布时间：2024/12/11 21:11:00
-- [求助]审核
老师，用颜色标出的代码在连续审核多行时“入库日期”，“经办人”，“入库_数量”列即使是空的也同样审核通过。
If Tables("入库.入库明细").Current.isnull("入库日期") OrElse Tables("入库.入库明细").Current.isnull("经办人") OrElse Tables("入库.入库明细").Current.isnull("入库_数量") \' OrElse ....
msgbox("有数据没有录入完成")
return
End If
If Tables("入库") .Rows.count = 0 OrElse Tables("入库.入库明细") .Rows.count = 0 Then
MessageBox.Show("没有可审核内容!")
Return
End If
Dim dr As DataRow
dr = DataTables("授权表").Find("(\',\' + 姓名 + \',\' like \'%," & _UserName & ",%\' or \',\' + 用户分组 + \',\' like \'%," & _Usergroup & ",%\') and 表名=\'入库.入库明细\' and 角色=\'审核\'")
If dr Is Nothing Then
MessageBox.show("你无审核权限!")
else
Tables("入库").Current("审核人") = User.Name
Tables("入库").Current("审核日期") = Date.now
Tables("入库.入库明细"). Current.Save()
Tables("入库").Current.Save()
End If
msgbox("你有审核权限!")
-- 发布时间：2024/12/12 8:42:00
--
【连续审核多行】是怎么操作的？Current指的是当前选中的1行
-- 发布时间：2024/12/12 11:52:00
--
老师，子表（入库明细）有多行审核第一行时会提示数据未填写完整。如果第一行填写完整下面几行填写不完整审核也同样通过。
-- 发布时间：2024/12/12 12:04:00
--
请上传实例说明
-- 发布时间：2024/12/12 15:38:00
--
老师，子表（入库明细）有多行审核第一行时会提示数据未填写完整。如果第一行填写完整下面几行填写不完整审核也同样通过。打开入库表打开入库窗口审核入库.入库明细表
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:蓝峰管理.rar |
[此贴子已经被作者于2024/12/12 15:39:28编辑过]
-- 发布时间：2024/12/12 16:00:00
--
入库表datacolchanged事件有对明细进行审核的用法，这里没有做判断和控制
-- 发布时间：2024/12/12 17:29:00
--
老师，怎样判断和控制，搞不好，谢谢老师。
-- 发布时间：2024/12/12 17:40:00
--
说明您对自己要做的东西都不熟悉呀，不知道自己要做什么。先理清自己的思路吧。
审核的目的是什么？主表和明细表需要分开审核？2个表的审核有什么不一样？审核前需要做什么判断？数据判断？权限判断？先审核主表还是先审核明细表？