离开某数据表时提出警告 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 离开某数据表时提出警告

共有2571人关注过本帖树形打印复制链接主题：离开某数据表时提出警告

有点甜

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

加好友

发短信

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

Post By：2018/11/6 10:15:00 [显示全部帖子]

参考

http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=126976&skin=0

有点甜

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

加好友

发短信

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

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

如果要判断所有行，改成这样

If e.OldTableName = "出入库" Then
    Dim fdr As DataRow = DataTables("出入库").find("物料编号 is null or 出入库单号 is null or 出入库数量 is null")
    If fdr IsNot Nothing Then
        msgbox("不能离开")
        e.cancel = True
    End If
End If

有点甜

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

加好友

发短信

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

Post By：2018/12/12 14:39:00 [显示全部帖子]

If e.OldTableName = "接头巴任务单" Then
    Dim a As DataRow = DataTables("接头巴任务单").Find("制造产品号 is null")
    If a IsNot Nothing Then
        Dim Result As DialogResult
        Result = MessageBox.Show("接头巴任务单填写不完整,是否要离开此表?", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
        If Result = DialogResult.Yes Then
            DataTables("接头巴任务单").deletefor("制造产品号 is null")
        Else
            e.cancel = True
        End If
    Else
        a.save
    End If
End If

有点甜

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

加好友

发短信

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

Post By：2018/12/13 15:34:00 [显示全部帖子]

有点甜

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

加好友

发短信

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

Post By：2018/12/13 18:09:00 [显示全部帖子]

If e.OldTableName = "接头巴任务单" Then
    Dim a As DataRow = DataTables("接头巴任务单").Find("制造产品号 is null or 计划数量 is null or 计划数量 = 0")
    If a IsNot Nothing Then
        Dim Result As DialogResult
        Result = MessageBox.Show("接头巴任务单填写不完整,是否要离开此表?", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
        If Result = DialogResult.Yes Then
            DataTables("接头巴任务单").deletefor("制造产品号 is null or 计划数量 is null or 计划数量 = 0")
        Else
            e.cancel = True
        End If
    Else
        DataTables("接头巴任务单").save
    End If
End If

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

主题：离开某数据表时提出警告