共8 条记录, 每页显示 10 条, 页签:
[1]
[浏览完整版]
标题：[求助]审核
1楼
苏州老街 发表于：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("你有审核权限!")
2楼
有点蓝 发表于：2024/12/12 8:42:00【连续审核多行】是怎么操作的？Current指的是当前选中的1行
3楼
苏州老街 发表于：2024/12/12 11:52:00老师，子表（入库明细）有多行审核第一行时会提示数据未填写完整。如果第一行填写完整下面几行填写不完整审核也同样通过。
4楼
有点蓝 发表于：2024/12/12 12:04:00请上传实例说明
5楼
苏州老街 发表于：2024/12/12 15:38:00老师，子表（入库明细）有多行审核第一行时会提示数据未填写完整。如果第一行填写完整下面几行填写不完整审核也同样通过。打开入库表打开入库窗口审核入库.入库明细表
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:蓝峰管理.rar |
[此贴子已经被作者于2024/12/12 15:39:28编辑过]
6楼
有点蓝 发表于：2024/12/12 16:00:00入库表datacolchanged事件有对明细进行审核的用法，这里没有做判断和控制
7楼
苏州老街 发表于：2024/12/12 17:29:00老师，怎样判断和控制，搞不好，谢谢老师。
8楼
有点蓝 发表于：2024/12/12 17:40:00说明您对自己要做的东西都不熟悉呀，不知道自己要做什么。先理清自己的思路吧。
审核的目的是什么？主表和明细表需要分开审核？2个表的审核有什么不一样？审核前需要做什么判断？数据判断？权限判断？先审核主表还是先审核明细表？
共8 条记录, 每页显示 10 条, 页签:
[1]