以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  关于生成报表过程中的判断  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=106965)
--  作者：zhimin
--  发布时间：2017/9/19 9:18:00
--  关于生成报表过程中的判断
各位老师好！
我做了一个生成报表的菜单按钮，请问如何给按钮增加一个功能：
判断数据表中某列是否有空的单元格，如果有，则停止生成报表，返回报表并将焦点定位到这个空的单元格，如果没有空的单元格则生成报表。
谢谢！
--  作者：有点甜
--  发布时间：2017/9/19 10:57:00
--  

Dim t as table = tables("表A")
For i As Integer = 0 To t.rows.count-1
    For j As Integer = 0 To t.cols.count-1
        If t.rows(i)(j) = Nothing Then
            t.Select(i, j)

            msgbox("提示")
            Return
        End If
    Next
Next