VB6如何做 表单的提交验证

Question

情况是这样的：窗体上面有很多个textbox   一个提交button，需要做的是我点击Button提交数据的时候需要对数据进行严重输入的数据是否正确，   怎么做才能是最好的方法呢。
我相到一个笨方法就是定义和textbox一样多的变量，咋每个textbox的LostFocus事件中判断值是否符合输入的要求，如果符合则把该变量变成0，否则为1.我在Button提交判断的时候只需要判读下他们的变量之和是否为0就行了。但感觉这种方法不是很好，求帮助

Answer 1

textbox的LostFocus事件中判断值是否符合输入的要求，
DIM DATAGOOD AS Boolean类值变量，LOAD时就设为TRUEDim DATAGOOD As Boolean
Private Sub Form_Load()
DATAGOOD = True
End Sub如果哪个不正确
Private Sub Text1_Change()
DATAGOOD = False
End Sub
只要是FALSE就说明有不符合，不用去加

Answer 2

这样不行啦，我最开始也是这样做的，结果发现有一个bug,因为有很多textbox，可能我第一个textbox这用户输入的不正确，在除法LostFocus事件后DATAGOOD =False。而且用户没有去修改，直接到下一个textbox中去了，如果下一个textbox中用户输入了正确值，那么DATAGOOD =True。所以BUG就出现了，明明第一个textbox用户输入的是错误值，可却能够提交。

Answer 3

这样不行啦，我最开始也是这样做的，结果发现有一个bug,因为有很多textbox，可能我第一个textbox这用户输入的不正确，在除法LostFocus事件后DATAGOOD =False。而且用户没有去修改，直接到下一个textbox中去了，如果下一个textbox中用户输入了正确值，那么DATAGOOD =True。所以BUG就出现了，明明第一个textbox用户输入的是错误值，可却能够提交。

Answer 4

这样不行啦，我最开始也是这样做的，结果发现有一个bug,因为有很多textbox，可能我第一个textbox这用户输入的不正确，在除法LostFocus事件后DATAGOOD =False。而且用户没有去修改，直接到下一个textbox中去了，如果下一个textbox中用户输入了正确值，那么DATAGOOD =True。所以BUG就出现了，明明第一个textbox用户输入的是错误值，可却能够提交。

Answer 5

DATAGOOD 只是在初始化时设为TRUE，后面都不设为TRUE的点击Button时先设为TRUE，然后只要一个条件不符就设为FALSE就退出检测，直到所有条件都对，那也就是TRUE了