谢谢黑侠老师！
试验，通过了。非常感谢。
还有一点小问题，在查询未开始时，我想让序号......接收民警的lable和text都为隐藏状态。点查询按钮后，这些为显现状态，而combo1和text1为隐藏状态。
修改按钮的click代码：
a=alltrim(thisform.Text3.value)
b=alltrim(thisform.Text4.value)
c=alltrim(thisform.Text5.value)
d=alltrim(thisform.Text6.value)
e=alltrim(thisform.Text7.value)
f=alltrim(thisform.Text8.value)
g=alltrim(thisform.Text9.value)
h=alltrim(thisform.Text10.value)
i=alltrim(thisform.Text11.value)
j=alltrim(thisform.Text12.value)
k=alltrim(thisform.Text13.value)
l=alltrim(thisform.Text14.value)
m=alltrim(thisform.Text15.value)
n=alltrim(thisform.Text16.value)
if empty(b)
   messagebox("姓名不可以修改为空值",16,"系统提示")
   return
endif
msg=messagebox('确定要修改记录吗？',32+4,'系统提示')
if msg=6
   go recno()
   replace jg.批文文号 with a,jg.姓名 with b,jg.姓名 with c,jg.姓名 with d,jg.姓名 with e,jg.姓名 with f,jg.姓名 with g,jg.姓名 with h,jg.姓名 with i,jg.姓名 with j,jg.姓名 with k,jg.姓名 with l,jg.姓名 with m,jg.姓名 with n
   messagebox("修改记录成功",16,"系统提示")
   thisform.grid1.refresh
   
    .T.
   thisform.Text1.enabled=.t.
   this.enabled=.f.
   thisform.Text2.visible=.f.
   thisform.Text3.visible=.f.
   thisform.Text4.visible=.f.
   thisform.Text5.visible=.f.
   thisform.Text6.visible=.f.
   thisform.Text7.visible=.f.
   thisform.Text8.visible=.f.
   thisform.Text9.visible=.f.
   thisform.Text10.visible=.f.
   thisform.Text11.visible=.f.
   thisform.Text12.visible=.f.
   thisform.Text13.visible=.f.
   thisform.Text14.visible=.f.
   thisform.Text15.visible=.f.
   thisform.Text16.visible=.f.
   thisform.Label3.visible=.f.
   thisform.label4.visible=.f.
   thisform.Label5.visible=.f.   
   thisform.Text1.value=""
   thisform.Text1.setfocus
endif
很长，很麻烦的。
请帮忙简化一下，谢谢！

试车成功，谢谢老师。