- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 老大，这个功能怎么实现？ (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=177193)
-- 发布时间：2022/5/12 13:57:00
-- 老大，这个功能怎么实现？
这是我程序中的审批功能的代码，我的目的是先判断表中 文件数量、盖章、文件要求、发图方式 四列中的内容，如果为空，提示“请确定文件数量、盖章、文件要求、发图方式等内容！”，如果不为空那就完成审核签字。
我写程序提示 e.DataCol不能按钮中运行，老大咋办？
If e.DataCol.Name = "文件数量" Then
If e.NewValue Is Nothing Then
MessageBox.Show("请确定文件数量、盖章、文件要求、发图方式等内容！", "提示")
Else
If User.Group = "项目负责人" Then
Tables("ftdjb").Current("审核") = User.Name
Tables("ftdjb").Current("审核日期") = Date.Today()
Tables("ftdjb").Current.Save()
Else If User.Group = "计划" Then
Tables("ftdjb").Current("审核") = User.Name
Tables("ftdjb").Current("审核日期") = Date.Today()
Tables("ftdjb").Current.Save()
Else
MessageBox.show("你无审核权限!")
End If
End If
End If
-- 发布时间：2022/5/12 14:04:00
--
Dim r As Row = Tables("ftdjb").Current
If r IsNot Nothing Then
If r.isnull("文件数量") OrElse r.isnull("盖章") .... then Then
MessageBox.Show("请确定文件数量、盖章、文件要求、发图方式等内容！", "提示")
Else
If User.Group = "项目负责人" OrElse User.Group = "计划" Then
r("审核") = User.Name
r("审核日期") = Date.Today()
r.Save()
Else
MessageBox.show("你无审核权限!")
End If
End If
End
-- 发布时间：2022/5/12 14:21:00
--
Dim r As Row = Tables("ftdjb").Current
If r IsNot Nothing Then
If r.isnull("文件数量") OrElse r.isnull("盖章") OrElse r.isnull("文件要求") OrElse r.isnull("发图方式") .... Then Then
MessageBox.Show("请确定文件数量?盖章?文件要求?发图方式等内容!", "提示")
Else
If User.Group = "项目负责人" OrElse User.Group = "计划" Then
r("审核") = User.Name
r("审核日期") = Date.Today()
r.Save()
Else
MessageBox.show("你无审核权限!")
End If
End If
End If
此主题相关图片如下：微信图片_20220512141913.jpg
此主题相关图片如下：微信图片_20220512141913.jpg-- 发布时间：2022/5/12 14:25:00
--
补充完整了就把省略号去掉咯
If r.isnull("文件数量") OrElse r.isnull("盖章") OrElse r.isnull("文件要求") OrElse r.isnull("发图方式") Then
-- 发布时间：2022/5/12 16:14:00
--
见笑了，我这小白总打扰您