以文本方式查看主题

-  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=49136)
--  作者：tele
--  发布时间：2014/4/12 15:15:00
--  请问判断一张表内，当前行指定多个单元格是否为空值，代码怎么写才最简便

有很多列哦……
--  作者：狐狸爸爸
--  发布时间：2014/4/12 15:22:00
--  

dim nms() as string = {"第一列","第二列","第三列"}

Dim ep as string

for each nm as string in nms

    if tables("xxx").current.isnull(nm) then

         ep= nm

         exit for

    end if

next

if ep > "" then

    messagebox.show(ep & "不能为空")

end if
--  作者：tele
--  发布时间：2014/4/12 15:23:00
--  

跪谢指点
--  作者：lsy
--  发布时间：2014/4/12 15:29:00
--  

Dim i As Integer
For Each s As String In "第一列|第二列|第五列|第六列|第七列|第八列|第九列|第十列".Split("|")
    If Tables("表A").Current(s) = Nothing Then
        i + = 1
    End If
Next
If i = "第一列|第二列|第五列|第六列|第七列|第八列|第九列|第十列".Split("|").Length Then
    MessageBox.Show("全空")
End If

 

 

Dim i As Integer
For Each c As Col In Tables("表A").Cols
    If c.Name <> "第三列" AndAlso c.Name <> "第四列" AndAlso Tables("表A").Current(c.Name) = Nothing Then
        i + = 1
    End If
Next
If i = Tables("表A").Cols.Count - 2 Then
    MessageBox.Show("全空")
End If