专家坐堂-老大，这个功能怎么实现？Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  老大，这个功能怎么实现？  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=177193)

--  作者：xiaofei_00
--  发布时间：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

--  作者：xiaofei_00
--  发布时间：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

--  作者：有点蓝
--  发布时间：2022/5/12 14:25:00
--
补充完整了就把省略号去掉咯

If r.isnull("文件数量") OrElse r.isnull("盖章") OrElse r.isnull("文件要求") OrElse r.isnull("发图方式") Then

--  作者：xiaofei_00
--  发布时间：2022/5/12 16:14:00
--
见笑了，我这小白总打扰您