| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- [求助]判断 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=166133) |
| -- 作者：江南小镇 -- 发布时间：2021/5/20 10:47:00 -- [求助]判断 老师好，我想在审核时进行判断第一列,第二列，第三列，第四列如果没有数据就不能审核并提示。 If Tables("入库") .Rows.count = 0 OrElse Tables("入库.入库明细") .Rows.count = 0 Then MessageBox.Show("没有可审核内容!") Return End If If User.IsRole ("审核") Then Tables("入库").Current("审核人") = User.Name Tables("入库").Current("审核日期") = Date.now Tables("入库.入库明细"). Current.Save() Tables("入库").Current.Save() Else MessageBox.show("你无审核权限!") End If
|
| -- 作者：有点蓝 -- 发布时间：2021/5/20 10:55:00 -- if Tables("入库").Current.isnull("第一列") orelse Tables("入库").Current.isnull("第二列") orelse .... msgbox(“提示”)
|
| -- 作者：江南小镇 -- 发布时间：2021/5/20 11:31:00 -- 老师，我想提示后完成操作才能允许审核锁定。 if Tables("入库").Current.isnull("第一列") orelse Tables("入库").Current.isnull("第二列") orelse ....
msgbox(“提示 |
| -- 作者：有点蓝 -- 发布时间：2021/5/20 11:35:00 -- if Tables("入库").Current.isnull("第一列") orelse Tables("入库").Current.isnull("第二列") orelse .... msgbox(“提示”) return end if 审核代码
|