所有行内容是空值不保存，请老师指教，谢谢！

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目24.zip

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