有关老是报错的问题？今天晚10点结分！

[vbcb]

不知道为什么，我的程序老是报错，下面是代码：请帮忙分析
Private Function DataCheck(ByRef lngIndex As Long) As Long

On Error GoTo ErrLog

lngIndex = -1
DataCheck = 0

'如果该字段为非必填字段，请在判断该字段textbox文本为非空后再执行数据合法性检验
'姓名



If Len(txtFields(1).Text) > 50 Then '检查长度是否超出
DataCheck = 4
lngIndex = 1
Exit Function
End If
If Len(txtFields(1).Text) = 0 Then '检查非空字段是否为空
DataCheck = 5
lngIndex = 1
Exit Function
End If

'家庭人数
If IsNumeric(txtFields(2).Text) = False Then '检查是否数字
DataCheck = 2
lngIndex = 2
Exit Function
End If
If Len(txtFields(2).Text) = 0 Then '检查非空字段是否为空
DataCheck = 5
lngIndex = 2
Exit Function
End If

'联系地址

If Len(txtFields(3).Text) > 50 Then '检查长度是否超出
DataCheck = 4
lngIndex = 3
Exit Function
End If
If Len(txtFields(3).Text) = 0 Then '检查非空字段是否为空
DataCheck = 5
lngIndex = 3
Exit Function
End If

'联系电话
If IsNumeric(txtFields(4).Text) = False Then '检查是否数字
DataCheck = 2
lngIndex = 4
Exit Function
End If

If Len(txtFields(4).Text) > 10 Then '检查长度是否超出
DataCheck = 4
lngIndex = 4
Exit Function
End If
If Len(txtFields(4).Text) = 0 Then '检查非空字段是否为空
DataCheck = 5
lngIndex = 4
Exit Function
End If
'备注

If Len(txtFields(4).Text) > 50 Then '检查长度是否超出
DataCheck = 4
lngIndex = 4
Exit Function
End If
ErrLog:
DataCheck = 1
'WriteErrLogFile Me.Caption & "：DataCheck，", "错误号：" & Err.Number & "；错误源：" & Err.Source & "；错误描述：" & Err.Description
MsgBox "发现错误！错误号：" & Err.Number & "；错误源：" & Err.Source & "；错误描述：" & Err.Description & "。如果还有问题，请联系管理员解决。", vbCritical

End Function

[网络老男孩了]

exit function
ErrLog:
DataCheck = 1
'WriteErrLogFile Me.Caption & "：DataCheck，", "错误号：" & Err.Number & "；错误源：" & Err.Source & "；错误描述：" & Err.Description
MsgBox "发现错误！错误号：" & Err.Number & "；错误源：" & Err.Source & "；错误描述：" & Err.Description & "。如果还有问题，请联系管理员解决。", vbCritical
前面要加exit function

[wxy001]

上面说的对
没有exit function 就做下面的ERRLOG去了，100%报错！

[vbcb]

十点结分，要分的人来吧，反正问题解决了

[canyqf]

既然解决了，为什么给解决问题的人呢？
迷惑……

BTW：不用给我分，无功不受禄

[chenyu5188]

呵呵

来了。

[qiqif]

不好意思
up一下

[trigger_lau]

随便踢一脚，楼主是不是应该多看看程序是怎样退出的

[Daniel0318]

曾经我也犯过这样的错，当时也没明白怎么回事，由于着急，而且感觉问题不大，软件就拿去给人用了，后来知道了也一直没机会该过来。

[vbcb]

to canyqf()
那你还来回答，真是的，还不是要分吗？
我就是要给你！分多，不可以吗？

[canyqf]

呵呵，你要给我分，我也没有办法，
小气而已吗，
这点我想你自己清楚，
我没必要与你争论。。。