主题：如何写一行没有录入数据无法新增的按钮

Dim s() As String ={"第一列","第二列","第三列","第四列"} '定义列名

Dim r As Row = Tables("表B").Current '定义当前行

For i As Integer = 0 To s.Length -1  '遍历列名

    If r.IsNull(s(i)) Then   '如果当前行有一列为空

        MessageBox.Show((s(i)) & "不允许为空")  '提示

        Return Nothing '返回

    Else  '否则

        Tables("表B").AddNew   '新增一行

    End If

Next