**** 要再能自动造表,不如吹版的简单(仅参考)
close all
cwj=ADDBS(SYS(5)+SYS(2003))+"文档.docx"
ow=CREATEOBJECT("word.application")
ot=ow.Application.Documents.Open(cwj)
nrow=ot.tables(1).rows.count
ncol=ot.Tables(1).Columns.Count
create cursor b1 (zd1 c(20),zd2 n(10))
csq="select " &...
CLOSE DATABASES ALL
USE hz1 IN 0
nRecc=RECCOUNT()
CALCULATE Max(bj) TO nMax
CREATE CURSOR tt (bj c(2),lb c(20),rs n(4))
cField="班级 c(2)"
FOR i=1 TO INT(0.85/0.05) STEP 2
SELECT Hz1
CALCULATE MIN(Smzf) TO nMin FOR Smzfjm<=nRecc*0.05*i
cField=cField+","+"F"+TRANSFORM(INT(nMin)...
编程论坛 - 求VFP代码:怎样调整学生使两个班的学生男女人数相差1人;住校和非住校人数相差1人;两个班的平均成绩差距在1分以内?
https://bbs.bccn.net/viewthread.php?tid=379827&extra=&highlight=%B3%C9%BC%A8&page=2
https://blog.csdn.net/apple_8180/article/details/941626
编程论坛 - 求一个校验身份证号码有效性的代码 (转贴)
https://bbs.bccn.net/viewthread.php?tid=401729&highlight=%C9%ED%B7%DD%D6%A4%BA%C5
编程论坛 - 再请教考场编排的问题
https://bbs.bccn.net/viewthread.php?tid=427433&extra=&highlight=%BF%BC%B3%A1&page=1