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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]窗口新增数据

共有2846人关注过本帖树形打印复制链接主题：[求助]窗口新增数据

huangjiacai

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

等级：小狐帖子：385 积分：2918 威望：0 精华：0 注册：2018/1/15 15:01:00

[求助]窗口新增数据 发帖心情

Post By：2019/8/15 17:30:00 [只看该作者]

设计窗口的时候发现了一个问题，如果新增了一行，什么都没填就关闭窗口，数据表里面就会有很多空白行，怎样设置条件，在关闭窗口前先判断某一个字段的值是否为空，如果为空，弹出强制提示信息，必须要特定字段值非空才能保存。

另外，如果不点击保存按钮直接关闭窗口的话，提示未保存，或者没有填写任何信息就点击关闭窗口，把新增的空白行删掉。求教！

有点蓝

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

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

Post By：2019/8/15 17:44:00 [只看该作者]

1、比如BeforeClose事件：

if tables(“表A”).current.isnull("第一列") then

Dim dlg As DialogResult = MessageBox.Show("第一列为空是否退出", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question)

If dlg = DialogResult.No

e.Cancel = True

End If

end if

2、保存提示

If DataTables("Users").HasChanges Then

Dim dlg As DialogResult = MessageBox.Show("员工表还有未保存的数据,选是保存并退出,选否退出不保存,选取消返回.", "提示", MessageBoxButtons.YesNoCancel, MessageBoxIcon.Question)

If dlg = DialogResult.Yes Then

DataTables("Users").Save

ElseIf dlg = DialogResult.Cancel

e.Cancel = True

End If

huangjiacai

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

等级：小狐帖子：385 积分：2918 威望：0 精华：0 注册：2018/1/15 15:01:00

Post By：2019/8/20 9:48:00 [只看该作者]

这里面这句e.cancel = true是不是会把新增的行给删掉呢？还是说把在这窗口做的改变都取消掉呢？

有点蓝

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

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

Post By：2019/8/20 10:25:00 [只看该作者]

e.cancel = true只是不允许关闭，对数据不会有任何影响

主题：[求助]窗口新增数据