| 以文本方式查看主题 - Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp) -- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2) ---- 判断为空，程序如何终止 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=38588) |
| -- 作者：cqyanglm -- 发布时间：2013/8/1 22:56:00 -- 判断为空，程序如何终止 信息录入时，点击提交按钮，发现空值提示，但程序不能终止，数据库中仍添加了带空值的一行数据 Dim h As Row = Tables("原燃材料进厂").AddNew h("日期")=e.Form.Controls("DateTimePicker3").Text h("物料名称")=e.Form.Controls("ComboBox8").Text h("当班班次")=e.Form.Controls("ComboBox9").Text h("当班班级")=e.Form.Controls("ComboBox10").Text h("当班进厂量")=e.Form.Controls("TextBox7").Text h.Save If e.Form.Controls("ComboBox8").Text = "" Then Messagebox.show("物料名称不能为空!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information) Return End If If e.Form.Controls("ComboBox9").Text = "" Then Messagebox.show("当班班次不能为空!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information) Return End If If e.Form.Controls("ComboBox10").Text = "" Then Messagebox.show("当班班级不能为空!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information) Return End If If e.Form.Controls("DateTimePicker3").Text = "" Then Messagebox.show("日期不能为空!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information) Return End If If e.Form.Controls("TextBox7").Text = "" Then Messagebox.show("当班进厂量不能为空!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information) Return End If If MessageBox.Show("信息添加成功,是否继续添加?", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question) = 6 Forms("信息录入").open e.Form.Controls("ComboBox8").Text = "" e.Form.Controls("TextBox7").Value = Nothing Else Forms("信息录入").close forms("启动").open End If
[此贴子已经被作者于2013-8-1 23:00:55编辑过]
|
| -- 作者：有点甜 -- 发布时间：2013/8/1 23:06:00 -- 这段代码放在中间，也就是判断是否为空的后面 Dim h As Row = Tables("原燃材料进厂").AddNew h("日期")=e.Form.Controls("DateTimePicker3").Text h("物料名称")=e.Form.Controls("ComboBox8").Text h("当班班次")=e.Form.Controls("ComboBox9").Text h("当班班级")=e.Form.Controls("ComboBox10").Text h("当班进厂量")=e.Form.Controls("TextBox7").Text h.Save |
| -- 作者：cqyanglm -- 发布时间：2013/8/1 23:10:00 -- 哦，看来VB还是要打好基础的，半路出家不行啊 |
| -- 作者：狐狸爸爸 -- 发布时间：2013/8/2 8:55:00 -- 呵呵，这个和vb没有什么关系的，肯定要先判断再执行，你先执行再判断，判断就无意义了。 其实不需要专门学vb的，看帮助文件就行了。 |