Foxtable(狐表)用户栏目专家坐堂 → 错误提示


  共有3232人关注过本帖树形打印复制链接

主题:错误提示

帅哥哟,离线,有人找我吗?
nxqtxwz
  1楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:六尾狐 帖子:1495 积分:12175 威望:0 精华:0 注册:2013/3/19 16:41:00
错误提示  发帖心情 Post By:2020/7/1 10:28:00 [显示全部帖子]

不知为什么,今天突然频繁出现下面的提示。怎么这么多的毛病呀。

 

 

.NET Framework 版本:4.0.30319.1026
Foxtable 版本:2020.5.29.8
错误所在事件:项目,MainTableChanging
详细错误信息:
Object reference not set to an instance of an object.


 回到顶部
帅哥哟,离线,有人找我吗?
nxqtxwz
  2楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:六尾狐 帖子:1495 积分:12175 威望:0 精华:0 注册:2013/3/19 16:41:00
  发帖心情 Post By: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


 回到顶部