select ssbm
if eof()
  return
endif

if not empty(alltrim(thisform.text2.value))
   m.zzll = val(alltrim(thisform.text2.value))
      repl zzll with m.zzll
endif

if not empty(alltrim(thisform.text3.value))
   m.wgy = val(alltrim(thisform.text3.value))
   repl wgy with m.wgy
endif

if not empty(alltrim(thisform.text4.value))
   m.ywk1 = val(alltrim(thisform.text4.value))
   repl ywk1 with m.ywk1
endif

if not empty(alltrim(thisform.text5.value))
   m.ywk2 = val(alltrim(thisform.text5.value))
repl ywk2 with m.ywk2

endif


select ssbm

skip
if eof()
go bott
endif

thisform.text2.value = ""
thisform.text3.value = ""
thisform.text4.value = ""
thisform.text5.value = ""


thisform.grid1.setfocus
thisform.refresh

if thisform.text2.enabled = .t.
   thisform.text2.setfocus
   return
endif

if thisform.text3.enabled = .t.
   thisform.text3.setfocus
   return
endif

if thisform.text4.enabled = .t.
   thisform.text4.setfocus
   return
endif

if thisform.text5.enabled = .t.
   thisform.text5.setfocus
   return
endif


 *wait window "完成" timeout 2 at srows()/2,(scols()-len("完成"))/2
 

*!* 选择表 ssbm,如果表指针到末尾，返回
select ssbm
if eof()
  return
endif

*!* 如果text2值不空，赋值给内存变量m.zzll，同时替换字段zzll
if not empty(alltrim(thisform.text2.value)) &&如果text2值不空
   m.zzll = val(alltrim(thisform.text2.value)) &&赋值给内存变量m.zzll
      repl zzll with m.zzll &&替换字段 zzll 的值为m.zzll
endif

*!* 类似上面
if not empty(alltrim(thisform.text3.value))
   m.wgy = val(alltrim(thisform.text3.value))
   repl wgy with m.wgy
endif

*!* 类似上面
if not empty(alltrim(thisform.text4.value))
   m.ywk1 = val(alltrim(thisform.text4.value))
   repl ywk1 with m.ywk1
endif

if not empty(alltrim(thisform.text5.value))
   m.ywk2 = val(alltrim(thisform.text5.value))
repl ywk2 with m.ywk2

endif

*!* 选择表 ssbm
select ssbm


skip  &&表指针下移动1位，如果指针到末尾
if eof() &&指针到末尾
go bott  &&指针移动到末尾？好像多余
endif

thisform.text2.value = ""
thisform.text3.value = ""
thisform.text4.value = ""
thisform.text5.value = ""

*!* 表格得到焦点,刷新表单
thisform.grid1.setfocus
thisform.refresh

*!* 如果text2,可以输入,就得到焦点,返回
if thisform.text2.enabled = .t.
   thisform.text2.setfocus
   return &&返回,下面的语句不会执行
endif

*!* 同上
if thisform.text3.enabled = .t.
   thisform.text3.setfocus
   return
endif

*!* 同上
if thisform.text4.enabled = .t.
   thisform.text4.setfocus
   return
endif

if thisform.text5.enabled = .t.
   thisform.text5.setfocus
   return
endif

*!* 在屏幕中间显示,2秒后,退出显示
wait window "完成" timeout 2 at srows()/2,(scols()-len("完成"))/2