**** 要再能自动造表，不如吹版的简单（仅参考） 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 " &amp...

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&amp;extra=&amp;highlight=%B3%C9%BC%A8&amp;page=2

https://blog.csdn.net/apple_8180/article/details/941626

编程论坛 - 求一个校验身份证号码有效性的代码 (转贴) https://bbs.bccn.net/viewthread.php?tid=401729&amp;highlight=%C9%ED%B7%DD%D6%A4%BA%C5

编程论坛 - 再请教考场编排的问题 https://bbs.bccn.net/viewthread.php?tid=427433&amp;extra=&amp;highlight=%BF%BC%B3%A1&amp;page=1