考场安排数据.rar (14.65 KB)

[此贴子已经被作者于2016-10-29 14:46编辑过]

程序代码：

clear
close databases all
select * from g1sz into array akcxx
*list memory like akcxx
use g1 
go top
for i=1 to alen(akcxx,1)
    for j=1 to akcxx[i,3]
        replace kch with akcxx[i,1],js with akcxx[i,2],kcxh with j,kcrs with akcxx[i,3]
        if not eof()
            skip 1        
        else
            exit
        endif
    endfor
    if eof()
        exit
    endif
endfor
browse