- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 关于审核和审批，如何没有输入内容，不允许审批~~~ (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=50439)
-- 发布时间：2014/5/6 20:34:00
-- 关于审核和审批，如何没有输入内容，不允许审批~~~
这样的代码应该如何写~~
此主题相关图片如下：360截图20140506203122843.jpg
此主题相关图片如下：360截图20140506203117671.jpg
-- 发布时间：2014/5/6 20:40:00
--
点击按钮的时候，判断一下是否是空不就行了？
-- 发布时间：2014/5/6 20:42:00
--
If Tables("xxx").Current.Isnull("审核意见") Then
msgbox("不能审核")
End If
-- 发布时间：2014/5/6 21:28:00
--
请问上面的代码如何和下面的代码结合在一起呢》？？
If user.roles = "个案拆分" Then
Tables("个案申请").Current("审核日期") = Date.Today()
Tables("个案申请").Current("审核意见") = forms("功能栏").controls("textbox5").text
Tables("个案申请").Current("审核") = user.roles
Tables("个案申请").Current.Save()
MessageBox.show("审核成功!")
Else
MessageBox.show("你无审核权限!")
End If
-- 发布时间：2014/5/6 21:32:00
--
代码
If user.roles = "个案拆分" Then
If Tables("个案申请").Current.IsNull("审核") = false Then
Tables("个案申请").Current("审核日期") = Date.Today()
Tables("个案申请").Current("审核意见") = forms("功能栏").controls("textbox5").text
Tables("个案申请").Current("审核") = user.roles
Tables("个案申请").Current.Save()
MessageBox.show("审核成功!")
Else
MessageBox.show("意见不能为空")
End If
Else
MessageBox.show("你无审核权限!")
End If
-- 发布时间：2014/5/6 21:39:00
--
老师，代码有问题~~~
此主题相关图片如下：360截图20140506213904562.jpg
-- 发布时间：2014/5/6 21:40:00
--
此主题相关图片如下：360截图20140506213939187.jpg
-- 发布时间：2014/5/6 21:41:00
--
填写了意见后，案审核，也是出现，意见不能为空的BOX，然后出现保存成功
-- 发布时间：2014/5/6 21:41:00
--
列名写错了
真的好担心你的系统实际被使用上 
If user.roles = "个案拆分" Then
If Tables("个案申请").Current.IsNull("审核意见") = false Then
Tables("个案申请").Current("审核日期") = Date.Today()
Tables("个案申请").Current("审核意见") = forms("功能栏").controls("textbox5").text
Tables("个案申请").Current("审核") = user.roles
Tables("个案申请").Current.Save()
MessageBox.show("审核成功!")
Else
MessageBox.show("意见不能为空")
End If
Else
MessageBox.show("你无审核权限!")
End
-- 发布时间：2014/5/6 21:42:00
--
按取消按钮出现
此主题相关图片如下：360截图20140506214132796.jpg