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

此主题相关图片如下：微信图片_20220302092014.png

我想实现这么几个功能：

1.在单击保存按钮之前，这一条数据不单个一一保存，而是等触发控件后一起保存在表中；

2.单击保存按钮之后，先检索必填项是否填写完整，并弹出对话框提示“xx列未填写完整”再返回；

3.单击保存按钮、成功保存一条数据后，又重新生成一行并清空所有字段（这样我是不是可以剩下一个新增按钮？）；

4.单击关闭按钮，如果必填项未填写完整，先对话框提示是否保存该条数据，选择“是”后再检索必填项是否填写完整，并弹出对话框提示“xx列未填写完整”再返回，填写完整后选择“是”则保存该条数据，选择“否”则不保存该条数据。

目前用for each语句实现了对话框提示必填项，但是鉴于水平有限，无法实现对话框提示具体到哪一项未填写完成。请大佬指教。。
图片点击可在新窗口打开查看

此主题相关图片如下：微信图片_20220302091744.png

2、就是上面截图代码的用法

3、自己测试，觉得合适就好

4、要解决问题，请发代码文字，而不是截图，这样别人没法改

Dim sts() As String = {"物料编号","物料名称","型号规格","单位","单价"}

For Each st As String In sts

If Tables("物料信息").current.IsNull(st) = True Then

messagebox.show("不能为空!","提示")

Return

End If

这段代码是针对：2.单击保存按钮之后，先检索必填项是否填写完整，并弹出对话框提示“xx列未填写完整”再返回。我想实现的功能是通过对话框提示具体到哪一列没填写完整。

messagebox.show(st & "不能为空!","提示")

好的~谢谢蓝版，测试成功了。缺了个&符号，昨晚研究了很久 & 和 * 两个符号，没太读懂。谢谢！

主题：关于新增数据的保存及提示框提醒的问题