vb中客户信息填写不完整不能进入下一个界面的完整代码。急急。。

直接if语句判断，
if Trim(txtUserName.Text = "") and (text文本框) then
MsgBox "输入信息不完整！", vbOKOnly + vbExclamation, "警告"
Else
form.show

在显示下一个页面之前直接EXIT SUB就可以了,也就是说对每项需要检查的数据进行逐个检查,不符合就直接exit sub退出过程

判断TEXT是否为空。。

当
trim(text1.text)=""
或者
len(trim(text1.text))=0
的时候
exit sub

用控件数组。。。。。。代码如下：
For i = 0 To 5
If Text1(i).Text = "" Then
Select Case i
Case 0
t = "***不能为空"
Case 1
t = "***不能为空"
Case 2
t = "***不能为空"
Case 3
t = "***不能为空"
Case 4
t = "**不能为空"
Case 5
t = "**不能为空"
End Select
MsgBox t, , "友情提示"
Exit Sub
End If

Next