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

vbcb 2003-04-08 07:29:48
不知道为什么,我的程序老是报错,下面是代码:请帮忙分析
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
...全文
27 10 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
10 条回复
切换为时间正序
请发表友善的回复…
发表回复
canyqf 2003-04-09
  • 打赏
  • 举报
回复
呵呵,你要给我分,我也没有办法,
小气而已吗,
这点我想你自己清楚,
我没必要与你争论。。。
vbcb 2003-04-08
  • 打赏
  • 举报
回复
to canyqf()
那你还来回答,真是的,还不是要分吗?
我就是要给你!分多,不可以吗?
Daniel0318 2003-04-08
  • 打赏
  • 举报
回复
曾经我也犯过这样的错,当时也没明白怎么回事,由于着急,而且感觉问题不大,软件就拿去给人用了,后来知道了也一直没机会该过来。
trigger_lau 2003-04-08
  • 打赏
  • 举报
回复
随便踢一脚,楼主是不是应该多看看程序是怎样退出的
qiqif 2003-04-08
  • 打赏
  • 举报
回复
不好意思
up一下
chenyu5188 2003-04-08
  • 打赏
  • 举报
回复
呵呵

来了。

canyqf 2003-04-08
  • 打赏
  • 举报
回复
既然解决了,为什么给解决问题的人呢?
迷惑……

BTW:不用给我分,无功不受禄
vbcb 2003-04-08
  • 打赏
  • 举报
回复
十点结分,要分的人来吧,反正问题解决了
wxy001 2003-04-08
  • 打赏
  • 举报
回复
上面说的对
没有exit function 就做下面的ERRLOG去了,100%报错!
网络老男孩了 2003-04-08
  • 打赏
  • 举报
回复
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

1,217

社区成员

发帖
与我相关
我的任务
社区描述
VB 数据库(包含打印,安装,报表)
社区管理员
  • 数据库(包含打印,安装,报表)社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧