主题：请问判断一张表内，当前行指定多个单元格是否为空值，代码怎么写才最简便

有很多列哦……

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

跪谢指点

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