能否自定义主索引出错信息

[wxj]

我的表单中TEXT1用来编辑字段'编号','编号'已确定为主索引.当用户用TEXT1在字段'编号'中输入两个相同的编号时,或连续APPE时,系统将出现主索引出错提示,这个提示一般是英文的,对用户来说莫明其妙,能否改变这个提示,比如,在TEXT1.VALID中定义:
IF &&主索引出错
=MESSAGEBOX('您输入了重复的编号!','编号出错')
RETURN .F.
ENDI
不知各位高手有何良策?

[King]

是不是用VB？是的话可以用
ON ERROR RESUME NEXT屏蔽一切错误
然后用ERR来得到出错码，不过你你得对出错码的定义十分清楚，也可以用ERR.DESCRIBE属性（好象是这个属性，记性不大好）得到出错信息。

[LUJUN]

在TEXT1.ERROR中定义:
=MESSAGEBOX('您输入了重复的编号!','编号出错')

[wyg]

在form.error事件中
do case
case nerrer=错误编号
messagebox("你需要的提示信息")
otherwise
dodefault()
endcase