本例运行时表单上用于接收数据的文本框被隐藏，“修改”按钮禁用，如下图：
在组合框中选择要查找的字段，在文本框中输入查找内容后单击右侧的“查找”按钮后将查找结果显示在上方的表格中，“查找”按钮被禁用，同时激活“修改”按钮及用于接收数据的文本框，并将当前记录（满足查询条件的记录）的值同时显示在文本框中，如下图：
单击“修改”按钮后会对输入的值做判断，如果满足非空的条件，则用表单文本框中的值修改“网站信息表”的当前记录值，修改完毕后grid1会刷新显示，“修改”按钮的再次被禁用，同时激活“查找”按钮并隐藏接收数据文本框。
关于vfp表记录指针定位和数据排序请参考：记录指针定位和数据排序，本例用到了“数据1”数据库中的“网站信息表”，关于该数据库的情况已经在看实例学VFP：示例数据库一文中给出，这里均不再详述，只简要介绍一下制作过程。
制作步骤如下：
一、新建表单form1，并将其caption属性设置为“对表中记录进行定位与查找操作”，width属性值设为290，height属性值设为226，AutoCenter属性值设为.t.，并将其保存为“对数据表中记录进行修改.scx”。
二、向表单添加一个grid控件，将其readonly属性设置为.t.,其RecordSourceType值采用默认的“1-别名”，在表单设计器中将其宽和高粗略调小一些即可，具体属性值我们将在表单的init事件代码中对其进行设置。
三、在grid控件下方添加两个Label控件，使其排成一行，并将其caption属性依次设为“请选择查找方式”和“请输入要查找的内容”。
四、在label控件下方添加一个组合框控件Combo1及一个文本框控件Text1，文本框控件的属性值采用默认即可，组合框控件Combo1的RowSourceType属性值设置为“1-值”，RowSource属性值设置为“编号,网站名称,网站网址”，这样在运行时我们可以在该组合框中选择要查询的字段。
五、在表单上添加两个命令按钮command1和command2，将其caption属性依次设为“查找”和“修改”。
六、在命令按钮下方添加三个label控件，将这三个label控件排成一行，并将其caption属性依次设置为“编号”、“网站名称”和“网站网址”。
七、在这一行label控件下方添加三个文本框控件，属性值采用默认，并把这三个文本框排成一行。
八、调整表单上各个控件的位置，调整后的表单设计器如下图：
九、添加事件代码：
（一）表单form1的unload事件：
set exact off
close data
（二）表单form1的init事件：
set exact on
this.command1.enabled=.t.
this.command2.enabled=.f.
this.Text2.visible=.f.
this.Text3.visible=.f.
this.Text4.visible=.f.
this.Label3.visible=.f.
this.label4.visible=.f.
this.Label5.visible=.f.
use 网站信息表
this.Combo1.value="编号"
with thisform.grid1
.width=290
.height=100
.left=0
.top=0
.recordsource="网站信息表"
.deletemark=.f.
.visible=.t.
.readonly=.t.
.ColumnCount=3
.Column1.Header1.Caption="编号"
.Column1.Header1.BackColor=RGB(255,255,190)
.Column2.Header1.BackColor=RGB(255,255,190)
.Column2.Header1.Caption="网站名称"
.Column3.Header1.BackColor=RGB(255,255,190)
.Column3.Header1.Caption="网站网址"
.Column1.width=75
.Column2.width=80
.Column3.width=150
endwith
this.grid1.Setall("DynamicBackColor","RGB(224,225,255)","Column")
（三）“查找”按钮（command1）的click事件：
if empty(thisform.Text1.value)=.f.
go top
a=thisform.Combo1.value
b=alltrim(thisform.Text1.value)
c=.f.
if a="编号"
locate for 编号=b
if eof()
messagebox("数据库中不存在您所要查询的记录",16,"系统提示")
go top
return
else
c=.t.
endif
endif
if a="网站名称"
locate for 网站名称=b
if eof()
messagebox("数据库中不存在您所要查询的记录",16,"系统提示")
go top
return
else
c=.t.
endif
endif
if a="网站网址"
locate for 网站网址=b
if eof()
messagebox("数据库中不存在您所要查询的记录",16,"系统提示")
go top
return
else
c=.t.
endif
endif
if c
thisform.Text1.enabled=.f.
go recno()
thisform.Text2.visible=.t.
thisform.Text2.enabled=.f.
thisform.Text3.visible=.t.
thisform.Text4.visible=.t.
thisform.Label3.visible=.t.
thisform.label4.visible=.t.
thisform.Label5.visible=.t.
thisform.Text2.value=网站信息表.编号
thisform.Text3.value=网站信息表.网站名称
thisform.Text4.value=网站信息表.网站网址
thisform.grid1.setfocus
this.enabled=.f.
thisform.command2.enabled=.t.
endif
else
messagebox("请输入要查找的内容！",16,"系统提示")
thisform.Text1.value=""
thisform.Text1.Setfocus
endif
thisform.refresh
（四）“修改”按钮（command2）的click事件：
a=alltrim(thisform.Text3.value)
b=alltrim(thisform.Text4.value)
if empty(a).or.empty(b)
messagebox("网站名称及网站网址均不可以修改为空值",16,"系统提示")
return
endif
msg=messagebox('确定要修改记录吗？',32+4,'系统提示')
if msg=6
go recno()
replace 网站信息表.网站名称 with a,网站信息表.网站网址 with b
messagebox("修改记录成功",16,"系统提示")
thisform.grid1.refresh
thisform.command1.enabled=.t.
thisform.Text1.enabled=.t.
this.enabled=.f.
thisform.Text2.visible=.f.
thisform.Text3.visible=.f.
thisform.Text4.visible=.f.
thisform.Label3.visible=.f.
thisform.label4.visible=.f.
thisform.Label5.visible=.f.
thisform.Text1.value=""
thisform.Text1.setfocus
endif
十、运行“对数据表中记录进行修改.scx”。
参考资料:
vfp基础教程：http://bianceng.cnhttp://www.bianceng.cn/vfpjc/index0.htm
vfp初级教程：http://bianceng.cnhttp://www.bianceng.cn/cc/index.htm
vfp中级教程：http://bianceng.cnhttp://www.bianceng.cn/mcc/mcc.htm
vfp高级教程：http://bianceng.cnhttp://www.bianceng.cn/hcc/hcc.htm
VFP网络开发：http://bianceng.cnhttp://www.bianceng.cn/VFPwz/vfpwlkf.htm
vfp调用api函数：http://bianceng.cnhttp://www.bianceng.cn/VFPwz/vfpapi.htm
VFP报表打印：http://bianceng.cnhttp://www.bianceng.cn/VFPwz/vfpreport.htm
VFP常用技术：http://bianceng.cnhttp://www.bianceng.cn/VFPwz/vfpcyjs.htm
VFP经验汇总：http://bianceng.cnhttp://www.bianceng.cn/VFPwz/vfpjyhz.htm
VFP控件使用：http://bianceng.cnhttp://www.bianceng.cn/VFPwz/vfpkjsy.htm
VFP数据处理：http://bianceng.cnhttp://www.bianceng.cn/VFPwz/vfpsjcl.htm
本例代码在Win2003+VFP6.0环境下调试通过。
查看全套“菜鸟也学VFP”教程
以上是小编为您精心准备的的内容，在的博客、问答、公众号、人物、课程等栏目也有的相关内容，欢迎继续使用右上角搜索按钮进行搜索控件
， 表单
， text
， 网站
， 属性
， visible
修改label值
，以便于您获取更多的相关知识。