老师,用颜色标出的代码在连续审核多行时“入库日期”,“经办人”,“入库_数量”列即使是空的也同样审核通过。
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("你有审核权限!")