local rec(4)
    库存表.bh=rec(1)
   
 thisform.bh1.readonly=.f.
 thisform.fdh1.readonly=.f.
 thisform.cz1.readonly=.f.
 thisform.kcwz1readonly=.f.
    thisform.grid1.enabled=.f.
      thisform.refresh
      thisform.bh1.setfocus


select 出库表
append blank
replace 编号 with thisform.bh1.value,分段号 with thisform.fdh1.value,材质 with thisform.cz1.value,库存位置 with thisform.kcwz1.value

select 库存表
if thisform.bh1.value=rec(1)
delete
pack
 thisform.bh1.readonly=.t.
 thisform.fdh1.readonly=.t.
 thisform.cz1.readonly=.t.
 thisform.kcwz1.readonly=.t.
 endif