主题：[求助]如何判断当前表的每一个单元格都不为空

如题

参考

 

For Each cl As Col In CurrentTable.Cols
    Output.Show(cl.Name)
Next

 

具体一点你的问题，要全部行都判断吗？如果为空怎样？

比如，新增了10行。点击按钮，判断这10行里是不是所有格子都填了数据，如果有没填的，则弹窗提示无法保存。

搞好了 谢谢

For Each r As Row In CurrentTable.rows
    For Each cl As Col In CurrentTable.Cols
        If r.IsNull(cl.name) Then
            msgbox(r.index+1 & " 行 " & cl.name & " 列 为空")
            Return 
        End If
    Next
Next

 

Currenttable.Save