高分求解啊 大神们看看我这个vb 程序有什么问题

Question

如题所述

Answer 1

1、If Text1.Text = "" Then MsgBox "请输入姓名" 修改为：
If Text1.Text = "" Then MsgBox "请输入姓名" Exit SubEnd If
其他文本框的空值判断均这样，这样就不需要 If Text1.Text <> "" And Text2.Text <> """ And Text3.Text <> "" ..... Then 这个判断语句，而且在程序判断哪个文本框为空时立即退出，不会直到执行这个语句。
2、不知道你的字段情况，如果全部是文本字段，应该没有问题，如果有其他数据类型字段，需要将文本框的字符串转换为需要的字段类型。
例如：字段生日如果是日期类型，必须：Adodc1.Recordset("生日") = CDate(Text5.Text)

图不太清楚，看起来比较费劲。

Answer 2

你的IF语句不对吧，这么多IF 只有一个 END IF

Answer 3

用exit sub吧