dberror
1 choose case sqldbcode
2 case is>0
3 messagebox('系统提示','错误代号: '+string(sqldbcode)+'~n~n错误原因:'+'~n~n'+sqlerrtext)
4 case -1
5 messagebox('系统提示','由于事务对象中缺少了某些参数，未能连接到数据库！')
6 case -2
7 messagebox('系统提示','无法连接到数据库！')
8 case -3
9 messagebox('系统提示','指定的键值与当前数据库记录不匹配！')
10 case -4
11 messagebox('系统提示','向数据库写入二进制类型数据时失败！')
12 case else
13 messagebox('系统提示','保存时出现意外错误！')
14 end choose
15
16 if buffer=primary! then this.scrolltorow(row) //滚动到出错行
17
18 this.setfocus()
19
20 return 1
