上古卷轴5轮行菜单:这句什么意思???

来源:百度文库 编辑:查人人中国名人网 时间:2024/04/28 22:52:18
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这行执行,结果是出现错误结束这个子程序。