求:visual foxpro语言编程:列表禁止添加重复信息

use xs.dbf 学生表，字段xh不能重复，假设
go top
locate for alltrim(xh)=alltrim(thisform.text1.value)
if found()
messagebox("记录已经存在!")
else
把text值写进数据表
endif