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