以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  行内容是空值不保存  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=109169)
--  作者：良才
--  发布时间：2017/11/6 11:04:00
--  行内容是空值不保存

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

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目24.zip

[此贴子已经被作者于2017/11/6 11:04:24编辑过]
--  作者：有点甜
--  发布时间：2017/11/6 11:52:00
--  

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

 
--  作者：良才
--  发布时间：2017/11/6 14:22:00
--  
谢谢