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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 关闭窗口问题

共有1007人关注过本帖树形打印复制链接主题：关闭窗口问题

lgz518

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

加好友

发短信

等级：六尾狐帖子：1271 积分：8670 威望：0 精华：0 注册：2019/6/13 9:57:00

关闭窗口问题 发帖心情

Post By：2024/10/8 14:21:00 [只看该作者]

''AfterClose

需求1：当表A的dr("数量1") <> dr("数量2")提示，并不能关闭窗口

'Dim dr As Row = Tables("表A").current'

'If dr("数量1") <> dr("数量2") Then

' MessageBox.Show("数量不符!", "提示：不能保存，请检查分录！！！", MessageBoxButtons.OK, MessageBoxIcon.Information)

' e.Cancel = True'不能关闭窗口

'Else

' e.Cancel = False'可关闭窗口

'End If

表A与表B是用代码实现模拟关系

需求2：如果表A有记录，表B为空或没记录，不能关闭窗口

：

If DataTables("表B").compute("count(_identify)", "单号ID is null") > 0 Then

MessageBox.Show("请输单号！", "提示", MessageBoxButtons.OK , MessageBoxIcon.Information)

e.Cancel = True'不能关闭窗口

End If

上面代码执行，失效，没报错，如何处理？

有点蓝

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

加好友

发短信

等级：超级版主帖子：111403 积分：567085 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2024/10/8 14:30:00 [只看该作者]

放到窗口beforeclose事件

lgz518

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

加好友

发短信

等级：六尾狐帖子：1271 积分：8670 威望：0 精华：0 注册：2019/6/13 9:57:00

Post By：2024/10/8 16:03:00 [只看该作者]

表A与表B是用代码实现模拟关系

需求2：如果表A有记录，表B为空或没记录，不能关闭窗口

：

If DataTables("表B").compute("count(_identify)", "单号ID is null") > 0 Then

MessageBox.Show("请输单号！", "提示", MessageBoxButtons.OK , MessageBoxIcon.Information)

e.Cancel = True'不能关闭窗口

End If

这个失效，表A有记录，表B为空或没记录,还是有能关闭窗口，没达到需求，如何解决？还有如果没保存也不能关闭窗口，如何实现？

有点蓝

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

加好友

发短信

等级：超级版主帖子：111403 积分：567085 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2024/10/8 16:13:00 [只看该作者]

If DataTables("表B").datarows.count = 0 orelse DataTables("表B").compute("count(_identify)", "单号ID is null") > 0 orelse DataTables("表B").HasChanges Then

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

主题：关闭窗口问题