以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  空值动态提示  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=142181)
--  作者：yifan3429
--  发布时间：2019/10/20 17:41:00
--  空值动态提示
If dr.IsNull("文件标题") OrElse Dr.IsNull("楼盘") OrElse Dr.IsNull("单元房号") OrElse Dr.IsNull("客户姓名") Then

    MessageBox.Show("拍摄日期和作者不能为空!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)    
  拍摄日期和作者不能为空如何改成动态，直接定位到空值的列
        e.Cancel = True
Else
--  作者：有点蓝
--  发布时间：2019/10/20 21:05:00
--  
例如

Dim str() As String = {"第一列","第二列"}
For Each c As String In str
    If dr.isnull(c) Then
        msgbox(c & "不能为空")
        e.cancel = True
exit for
    End If
Next