主题：[求助]检查所有表中单元格值不得为空如何写代码

如果用户增加一条或多条记录，在他保存退出前要求整表所有的格子不得空着，如果有空值，则不得保存或不保存退出，因为这些记录在后续被别的表引用，如果出现空值则会导致程序出错，请老师放段代码上来，我是写了半天怎么也达不到效果，谢谢老师！

Dim flag As Boolean = False
For Each dr As DataRow In DataTables("表A").DataRows
    For Each dc As DataCol In DataTables("表A").DataCols
        If dr.IsNull(dc.Name) Then
            msgbox("不行")
            flag = True
            Exit For
        End If
    Next
    If flag Then Exit For
Next

能改的高级一点，告诉用户第一个不满足条件的所在单元格位于第几列第几行吗？谢谢！

Dim flag As Boolean = False
For Each r As Row In Tables("表A").Rows
    For Each c As Col In Tables("表A").Cols
        If r.IsNull(c.Name) Then
            msgbox(r.index + 1 & " " & c.Name)
            flag = True
            Exit For
        End If
    Next
    If flag Then Exit For
Next

代码中有一条看不明白：

 只有一句的话，可以不写End If

IF语句还能这样用？受教了，万分感谢！

老师帮我看看此段代码错哪了，我的用意是如果备注列为空，允许保存，其他列为空，弹出提示框并且不得保存。

Dim flag As Boolean = False
For Each r As Row In Tables("原料采购入库通知明细").Rows
    If r.IsNull("备注") Then
        Exit For
    End If
    For Each c As Col In Tables("原料采购入库通知明细").Cols
        If r.IsNull(c.Name) Then
            msgbox(c.Name & " 列 第" & r.index + 1 & "行"   & " 未输入")
            flag = True
            Exit For
        End If
    Next
    If flag Then
        Exit For
    End If
   
Next

If flag = False Then
    msgbox("执行保存操作")
End If

不行啊，做了测试，第一行的备注列是空的，同时其他列也有空的，执行这段代码还是执行的保存，上面写的用意表达的不完整，应该是除备注列外，其他任何列有空值，均不得保存，请老师再帮忙改下，谢谢！