哈缪尔符文图腾:这句什么意思???

来源:百度文库 编辑:神马品牌网 时间:2024/05/12 20:04:40
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这行执行,结果是出现错误结束这个子程序。