以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  单元格空白提示  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=122878)
--  作者：13775189031
--  发布时间：2018/8/3 15:07:00
--  单元格空白提示
请教：
表A中某列不能有空白，必须填写数据，并在关闭项目前提示！
怎么实现？
--  作者：有点甜
--  发布时间：2018/8/3 18:12:00
--  

beforeCloseProject事件

 

If DataTables("表A").Find("第一列 is null ") IsNot Nothing Then
    msgbox(123)
    e.cancel = True
End If
--  作者：13775189031
--  发布时间：2018/8/4 9:59:00
--  
OK!谢谢！
--  作者：13775189031
--  发布时间：2018/8/10 13:48:00
--  

如果想整行内容都不能有空白呢？
--  作者：有点甜
--  发布时间：2018/8/10 15:15:00
--  
以下是引用13775189031在2018/8/10 13:48:00的发言：

如果想整行内容都不能有空白呢？

 

If DataTables("表A").Find("第一列 is null or 第二列 is null or 第三列 is null") IsNot Nothing Then
    msgbox(123)
    e.cancel = True
End If
--  作者：13775189031
--  发布时间：2018/8/13 13:19:00
--  

如果想在生成报表之前提示不能有空白单元格，要用那个事件？
--  作者：有点甜
--  发布时间：2018/8/13 15:27:00
--  
以下是引用13775189031在2018/8/13 13:19:00的发言：

如果想在生成报表之前提示不能有空白单元格，要用那个事件？

 

如果是excel报表，参考

 

http://www.foxtable.com/webhelp/scr/1953.htm

 

 
--  作者：13775189031
--  发布时间：2018/8/16 14:51:00
--  

Select e.Book.TempLate
    Case "目视检验报告"
        Select Case e.Book.CurrentSheetName
            Case "VT报告"
                If DataTables("VT报告").Find("仪器设备_设备1 Is null Or 仪器设备_设备2 Is null Or 仪器设备_设备3 Is null") IsNot Nothing Then
                    msgbox("不能有空值!")
                    e.cancel = True
                End If
        End Select

 

是在word报表里，该怎么改？
--  作者：有点甜
--  发布时间：2018/8/16 15:04:00
--  

word报表无法编写事件。你做一个按钮，生成word报表吧。

 

http://www.foxtable.com/webhelp/scr/2890.htm