程序1.prg

自己的系统

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