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