动漫美女打架:这句什么意思???

来源:百度文库 编辑:高考问答 时间:2024/05/14 14:59:49
On Error GoTo HandleErr
Select Case 客户姓名查询
Case 1
Me.客户资料_查询_子窗体.Form.Filter = "[py] like'a'"
Case 2
Me.客户资料_查询_子窗体.Form.Filter = "[py] like'b'"
End Select
Me.客户资料_查询_子窗体.Form.FilterOn = True
ExitErr:
Exit Sub
HandleErr:
Resume ExitErr

就是VB的异常处理,当程序出现错误的时候,跳转到HandleErr这行执行,然后再跳到ExitErr这行执行,结果是出现错误结束这个子程序。