求教数据提取有关问题_VFP

求教数据提取问题！
自己做了个新生录取表单，想实现从A表提取数据到B表(AB表结构相同)

表单内容：Command1按钮 Text1文本框

表名：A表（成绩） B表（空，录取后的名单存放在此表）

操作：在表单Text1文本框中输入数据（zkzh）点Command1按钮来实现A表—》B表的提取，提取前最好能实现对B表的准考证查重操作。

按钮事件该怎么写？

------解决方案--------------------------------------------------------
Command1 按钮的 Click 事件

SQL code

Select B表Locate For Alltrim(zkzh)==Alltrim(Thisform.Text1.Value)If Found()    Messagebox('准考证号已存在',48,'信息提示')    ReturnEndifAppend From A表 For Alltrim(zkzh)==Alltrim(Thisform.Text1.Value)
------解决方案--------------------------------------------------------
SQL code*--- VFP9 代码*--- COMMAND1 事件代码CZKZH=ALLTRIM(THISFORM.TEXT1.VALUE)IF EMPTY(CZKZH)   MESSAGEBOX("文本框的值不能为空")   THISFORM.TEXT1.SETFOCUS   RETURNELSE   SELECT ZKZH FROM 表B WHERE ALLTRIM(ZKZH)==CZKZH INTO CURSOR TEMP   IF RECCOUNT()>1      MESSAGEBOX("准考证号 "+TEMP.ZKZH+" 重复")      THISFORM.TEXT1.SETFOCUS      RETURN    ENDIF   UPDATE 表B SET 成绩=表A.成绩 FROM 表A WHERE ALLTRIM(表B.ZKZH)==CZKZH AND ALLTRIM(表A.ZKZH)==CZKZHENDIF