-- 作者：nxqtxwz
-- 发布时间：2020/7/1 10:43:00
--
不动过怎么突然就出问题了。
\'\'\'判断输入内容是否完整，选择退出删除不完整记录，选择不退出继续填写完整。
If e.OldTableName = "文本资料" Then
Dim a As Row = Tables("文本资料").Current
If a.IsNull("文件名") OrElse a.Isnull("上传人") OrElse a.Isnull("文本分类") OrElse a.Isnull("上传日期") OrElse a.Isnull("文本") Then
Dim Result As DialogResult
Result = MessageBox.Show("您填写的信息不完整,如果退出则删除不完整信息，如果不退出则继续完成填写，请选择是否退出。", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
If Result = DialogResult.Yes Then
a.delete
Else
e.cancel = True
End If
Else
a.save
End If
End If
If e.OldTableName = "图片视频归档" Then
Dim b As Row = Tables("图片视频归档").Current
If b.IsNull("资料类别") OrElse b.Isnull("上传日期") OrElse b.Isnull("具体事由") OrElse b.Isnull("上传人") Then
Dim Result As DialogResult
Result = MessageBox.Show("您填写的信息不完整,如果退出则删除不完整信息，如果不退出则继续完成填写，请选择是否退出。", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
If Result = DialogResult.Yes Then
b.delete
Else
e.cancel = True
End If
Else
b.save
End If
End If
If e.OldTableName = "制度职责" Then
Dim c As Row = Tables("制度职责").Current
If c.IsNull("制度职责名称") OrElse c.Isnull("制度职责分类") OrElse c.Isnull("制度职责内容") Then
Dim Result As DialogResult
Result = MessageBox.Show("您填写的信息不完整,如果退出则删除不完整信息，如果不退出则继续完成填写，请选择是否退出。", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
If Result = DialogResult.Yes Then
c.delete
Else
e.cancel = True
End If
Else
c.save
End If
End If
If Tables("奖惩记录").Current.Locked = False Then
If Tables("奖惩记录").Current.IsNull("姓名") Or Tables("奖惩记录").Current.Isnull("颁奖日期") OrElse Tables("奖惩记录").Current.Isnull("证件") OrElse Tables("奖惩记录").Current.Isnull("名称") OrElse Tables("奖惩记录").Current.Isnull("等级") OrElse Tables("奖惩记录").Current.Isnull("获奖年度") Then
Tables("奖惩记录").Current.Delete
Else
Dim Result As DialogResult
Result = MessageBox.Show("您填写的记录没有保存,保存吗?", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
If Result = DialogResult.Yes Then
Tables("奖惩记录").Current.Save()
Tables("奖惩记录").Current.Locked = True
Else
Tables("奖惩记录").Current.Delete
End If
End If
End If
\'Tables("奖惩记录").AllowEdit = False
If e.OldTableName = "晨午检" Then
Dim b As Row = Tables("晨午检").Current
If b.IsNull("报告日期") OrElse b.Isnull("报告人") OrElse b.Isnull("班级") OrElse b.Isnull("学生姓名") OrElse b.Isnull("性别") OrElse b.Isnull("年龄") OrElse b.Isnull("症状") OrElse b.Isnull("家长姓名") OrElse b.Isnull("家庭住址") OrElse b.Isnull("联系电话") Then
Dim Result As DialogResult
Result = MessageBox.Show("填写不完整,如果退出则删除当前记录。是否退出？", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
If Result = DialogResult.Yes Then
b.Reject
Else
msgbox("不退出")
End If
Else
b.save
Tables("晨午检").Current.Locked = True
End If
End If
|