主题：[求助]获取为空字段的列名称

个别几个就不要遍历全部列, 遍历你自己定义的一个字符串列名数组就好了.

If s > "" Then

    MessageBox.Show(s,"以下各行的几个列值不能为空")

End If

Dim s As String
Dim cs As String
For Each r As Row In Tables("表A").Rows
    cs = ""

    Dim arycs() As String = "date|num|name".Split("|")

    Dim arytips() As String = "日期|序号|名称".Split("|")
    For i As integer = 0 to arycs.Length - 1

        If r.IsNull(arycs(i)) Then
            cs + = "【" & arytips(i) & "】列"
        End If
    Next
    If cs > "" Then
        s + = "第 " & r.Index + 1 & " 行 " & cs & Vbcrlf
    End If
Next

If s > "" Then
    MessageBox.Show(s,"以下各行的几个列值不能为空")

    Return

End If 

Datatables("表A").Save