test.prg

来自「由于时间仓促」· PRG 代码 · 共 12 行

close table
sele 1
use bxk
recall all
sele 2
use xbk
scan
  loca for sbbh=b->sbbh.and.fstime=b->fstime
  delete
  pack
  loop
endscan