判断填写完整 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 判断填写完整

共有2494人关注过本帖树形打印复制链接主题：判断填写完整

有点甜

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2018/11/2 9:39:00 [显示全部帖子]

1、代码

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.Reject
        Else
            msgbox("不退出")
        End If
    Else
        a.save
    End If

End if

2、写到mainTablechanging事件

http://www.foxtable.com/webhelp/scr/1612.htm

有点甜

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2018/11/2 10:19: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

下一主题 >> << 上一主题

主题：判断填写完整