Dim fdr As DataRow = DataTables("表A").find("第一列 is null")
If fdr isNot Nothing Then
msgbox("不能保存")
End If