返转.prg

来自「电信级传输专业管理中心传输系统及电路管理系统」· PRG 代码 · 共 22 行

sele 1
use \bakbak
go top

sele 2
use \task2
go top

do while not eof()
sele 1
tt=recno()
sele 2
if tt=recno()
replace task2.csly1 with bakbak.传输路由1,task2.csly2 with bakbak.传输路由2,task2.csly3 with bakbak.传输路由3,task2.csly4 with bakbak.传输路由4
?RECNO()

ENDIF
sele 1
skip
sele 2
skip
enddo