阿里巴巴的招聘标准:关于VB的一个小问题

'你的错误处理的顺序有问题！
'如果你把你原来的代码中的 MsgBox Err.Description 改成：
'Msgbox "ERROR"
'那么运行后会出现一个提示“ERROR”的对话框
'原因是，如果不出现错误，VB会一直将代码执行下去，不管你有没有像“cancelerr:”之类的行号
'所以VB会执行 MsgBox Err.Description
'由于没有错误(Err.Description="")，所以就会弹出一个没有内容的对话框（MsgBox ""）
'然后会执行 Exit Sub
'退出过程

'正确的代码：
Private Sub Command11_Click()
On Error GoTo cancelerr
Dim mrc As ADODB.Recordset
Dim txtsql As String
Dim mystrcode As String
Dim Msgtext As String
Dim i As Integer

'向数据库添加一条记录

txtsql = "select * from 门诊挂号"
Set mrc = ExecuteSQL(txtsql, Msgtext)
mrc.AddNew
mrc("门诊号") = Trim(Combo1.Text)
mrc("姓名") = Trim(Text2.Text)
mrc("性别") = Trim(Text3.Text)
mrc("年龄") = Trim(Text4.Text)
mrc("住址") = Trim(Text5.Text)
mrc("工作单位") = Trim(Text6.Text)
mrc("挂号科室") = Trim(Text7.Text)
mrc("挂号费") = Trim(Text8.Text)
mrc.Update
'+++++++++++++++++++++++++++++++++++++++
MsgBox "挂号成功，可以继续添加挂号信息！", vbOKOnly, "提示"

Exit Sub '如果没有错误则退出过程
cancelerr:
MsgBox Err.Description
'+++++++++++++++++++++++++++++++++++++++
End Sub