我建一个录入表单，内有TXET控件9个，组合选项控件4个，控制按钮2个（分别是“添加”按钮和“退出”按钮），选项按钮组1个。
表单的UNLOAD代码：
set exact off
close data
表单的INIT代码：
set exact on
set talk off
use d:\lx\jg
this.Text1.value=""
this.Text2.value=""
this.Text3.value=""

calculate max(序号) to maxbh  &&在数据表中查找出序号最大的记录
szbh=val(right(maxbh,3))  &&取出数字部分
if szbh=0 then  &&判断数字部分是否为0
   zdbh='001'
else
   zdbh=''+padl(alltrim(str(szbh+1)),3,'0')  &&生成自动编号
endif
this.Text1.value=zdbh
this.Text1.readonly=.t.
this.Text2.setfocus
添加按钮的CLICK代码：

c=alltrim(thisform.Text3.value)

if empty(c)
   messagebox("请输入姓名",16,"系统提示")
   return
else
  locate for 姓名=c
  if .not.eof()
      go top
      messagebox("不允许有重复的姓名",16,"系统提示")
      return
  endif
endif
msg=messagebox('确定要添加记录吗？',32+4,'系统提示')
if msg=6
   append blank
   go bottom
   replace jg.序号 with alltrim(thisform.Text1.value),;
   jg.批文文号 with alltrim(thisform.Text2.value),;
   jg.身份证号 with alltrim(thisform.Text5.value),;
   jg.联系电话 with alltrim(thisform.Text6.value),;
   jg.刑期 with alltrim(thisform.Text7.value),;
   jg.期限 with alltrim(thisform.Text8.value),;
   jg.接收民警 with alltrim(thisform.Text9.value),;
   jg.派出所 with alltrim(),;
   jg.村委 with alltrim(),;
   jg.案件性质 with alltrim(),;
   jg.种类 with alltrim(),;
   jg.姓名 with alltrim(thisform.Text3.value)
   messagebox('保存记录成功！',64,'系统提示')
  thisform.refresh
  calculate max(序号) to maxbh  &&在数据表中查找出序号最大的记录
  szbh=val(right(maxbh,3))  &&取出数字部分
  if szbh=0 then  &&判断数字部分是否为0
     zdbh='001'
  else
     zdbh=''+padl(alltrim(str(szbh+1)),3,'0')  &&生成自动编号
  endif
  thisform.Text1.value=zdbh
  thisform.Text2.value=""
  thisform.Text3.value=""
  thisform.Text5.value=""
  thisform.Text6.value=""
  thisform.Text7.value=""
  thisform.Text8.value=""
  thisform.Text9.value=""
  
  
  
  
  thisform.Text2.setfocus
  thisform.refresh
endif
到这里都正常。

为了更方便的使用，在COMBO1控件的发VALID过程编入代码：
IF !EMPTY(ALLTRIM(THIS.DisplayValue))
       
    SELECT * INTO CURSOR cTable1 FROM wei WHERE wei_1=pcs.pcs_2
    'cTable1.wei_2'   
ENDIF
运行表单，不能正常运行。提示：找不到变量'姓名'


请教师们帮助解决。谢谢！

我试了，一次试验成功。非常感谢2楼老师！直接再请教一个问题，在这个表单里，如何用日历控件来录入日期。如出生日期等。还有如何有选项按钮组录入性别。谢谢老师。

谢谢老师！
我用VF 9.0，没找到microsoft date and time picker control这个OLE控件，可能是我不找。
我在表单已放了一个options控件，也用生成器生成了一个标题是男，另一个标题是女，在添加按钮的CLICK鸟代码里不知如何编写命令。
请老师再帮帮我这个笨菜鸟，谢谢！

谢谢两位老师！
按照你们所教，我已试过。
只有日期时间控件还不会用。
现在，我已把这个控件加到表单控件条中，也能加到表单中，但不知如何让他在表单中起作用。有这个控件的教程吗，我下载一个。我一次又一次地请教，怕你嫌麻烦。