程序1.prg

来自「自己的系统」· PRG 代码 · 共 16 行

sele 1
use rmxcx
sele 2
use data\yxsmxb
sele rmxcx
go top
do while !eof()
   dh_=dh
   xsrq_=xsrq
   spbh_=spbh
   sl_=sl
   insert into yxsmxb value(dh_,xsrq_,spbh_,sl_)
   sele rmxcx
   skip
enddo