主题：新增行如何判断为空？

Dim sts() As  String  = {"规则","名称"}

If Tables("档案").Current Is Nothing Then

    Dim nr As Row = Tables("档案").Addnew()

    NR.Locked=False

Else

    For Each st As String In ats

        If Tables("档案").Current.isnull(st) = True Then

            MessageBox.Show("必填字段不能为空!","提示")

            e.cancel=True

        End If

    Next

    Dim nr As Row = Tables("部门档案").Addnew()

    NR.Locked=False

End If