- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 关于新增数据的保存及提示框提醒的问题 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=175360)
-- 发布时间：2022/3/2 9:30:00
-- 关于新增数据的保存及提示框提醒的问题
此主题相关图片如下：微信图片_20220302092014.png
我想实现这么几个功能：
1.在单击保存按钮之前，这一条数据不单个一一保存，而是等触发控件后一起保存在表中；
2.单击保存按钮之后，先检索必填项是否填写完整，并弹出对话框提示“xx列未填写完整”再返回；
3.单击保存按钮、成功保存一条数据后，又重新生成一行并清空所有字段（这样我是不是可以剩下一个新增按钮？）；
4.单击关闭按钮，如果必填项未填写完整，先对话框提示是否保存该条数据，选择“是”后再检索必填项是否填写完整，并弹出对话框提示“xx列未填写完整”再返回，填写完整后选择“是”则保存该条数据，选择“否”则不保存该条数据。
目前用for each语句实现了对话框提示必填项，但是鉴于水平有限，无法实现对话框提示具体到哪一项未填写完成。请大佬指教。。
此主题相关图片如下：微信图片_20220302091744.png
此主题相关图片如下：微信图片_20220302091744.png-- 发布时间：2022/3/2 9:35:00
--
1、参考：http://www.foxtable.com/webhelp/topics/0399.htm
2、就是上面截图代码的用法
3、自己测试，觉得合适就好
4、要解决问题，请发代码文字，而不是截图，这样别人没法改
-- 发布时间：2022/3/2 10:16:00
--
Dim sts() As String = {"物料编号","物料名称","型号规格","单位","单价"}
For Each st As String In sts
If Tables("物料信息").current.IsNull(st) = True Then
messagebox.show("不能为空!","提示")
Return
End If
Next
这段代码是针对：2.单击保存按钮之后，先检索必填项是否填写完整，并弹出对话框提示“xx列未填写完整”再返回。我想实现的功能是通过对话框提示具体到哪一列没填写完整。
-- 发布时间：2022/3/2 10:46:00
--
messagebox.show(st & "不能为空!","提示")
-- 发布时间：2022/3/2 16:05:00
--
好的~谢谢蓝版，测试成功了。缺了个&符号，昨晚研究了很久 & 和 * 两个符号，没太读懂。谢谢！
-- 发布时间：2022/3/2 16:20:00
--
多看看编程基础：http://www.foxtable.com/webhelp/topics/0221.htm