主题：行内容是空值不保存

If DataTables("假期安排").HasChanges Then
    If MessageBox.Show("表已经被修改,是否保存?", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question) = DialogResult.Yes  Then
        Dim fdr As DataRow = DataTables("假期安排").Find("安排项目 is null or 开始日期 is null or 结束日期 is null")
        If fdr IsNot Nothing Then
            msgbox("有空白值,不能保存")
            Return
        End If
        DataTables("假期安排").Save()
    End  If
End If