这段代码到底该怎么修改呀

这段代码到底该如何修改呀？
在数据窗口dw_1中有三个字段：xh（学号）、xm（姓名）、dw(单位）。

itemchanged事件中现有如下代码：
string xm
If dwo.name="xh" Then
//根据学号从学生表中查找学员姓名
SELECT xm 
INTO :xm
FROM "xy"
WHERE "xs"."xh"=:data;
If SQLCA.SQLCode=100 Then
MessageBox("错误","该学号在学生表中不存在，请重新输入！")
Else
//设置姓名列的内容
this.object.xy_xm[row]=xm
End If
End If

另外有一个ue_enterkey（事件id为：pbm_dwnprocessenter）事件的原代码（实现按回车则光标跳入下一个字段）为：
long therow
If this.AcceptText() < 0 Then 
  Return 1 
End If 
If this.GetColumn() = Long(this.object.datawindow.column.count) Then 
 If this.GetRow() = this.RowCount() Then 
  therow=this.Insertrow(0) 
Send(Handle(this),256,9,Long(0,0))
  this.ScrollToRow(therow)
  this.SetColumn(1) 
  Return 1 
 End If 
End If 
Send(Handle(this),256,9,Long(0,0)) 
return 1 

现在我想对代码进行适应改动，实现：当输入不存的学号时，除出现messagebox的报错框外，然后清除“xh”字段值，

同时得到焦点。
我试了很多办法都没有成功，请网友们教我到底如何改这段代码呀？谢谢了！！


------解决方案--------------------
this.settext('')
return 1
因为数据还未到primary，所以不能用上述的方式置空;