我建一个录入表单，内有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
运行表单，不能正常运行。提示：找不到变量'姓名'


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

可能是你的当前工作区不对了,在 添加按钮的CLICK代码中最前面加上select jg一行吧!

你的出错提示应该在这一行:locate for 姓名=c

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

1.日历控件可以用microsoft date and time picker control这个OLE控件，控件的值引用： OLE控件名.object.value
    如果是要用年、月、日，就是 OLE控件名.year  OLE控件名.month  OLE控件名.day
2.在表单上放一个options，用生成器生成（标题一个用男，一个用女），注意如果你要得到字符型的数据就将value设置为空格

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

1、关于日期时间控件
点击VFP菜单的工具→选项→控件→ActiveX控件  在“选定”的列表框中钩选“Microsoft Date and Time Picker Control 6.0 (SP6)” 按确定。
点击工具条的查看类，选择ActiveX控件，就可以添加日期时间控件了。

2、添加按钮的 CLICK 代码
XB=IIF(thisform.optiongroup1.Value=1,"男","女")

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

网上 有一个视频教程 免费在线的 很简单 可以去看看

地址如下

http://tech.

用右键点击日期时间控件→DTPicker Properties 设置DTPicker属性


给日期时间控件赋值：     控件._value=DATE()
获得日期时间控件的值：   dDATE=控件._value