.版本 2 .子程序 __启动窗口_创建完毕, , , ' 本源码来自三叶资源网(www.sanye.cx) .局部变量 i, 整数型 .局部变量 a .局部变量 b .局部变量 t .局部变量 n .局部变量 h .局部变量 l .局部变量 j .局部变量 m 数据源1.数据提供者 ＝ “通用提供者1” .如果真 (数据源1.从文件读 (“fy.grd”) ＝ 假) ' 这次从文件读入表格样板到基本情况提供者,用作演示模板的不同来源 信息框 (“找不到表格模板!”, 0, “错误”) 返回 () .如果真结束 打开 (“fy.edb”, , , , , , ) 置当前库 (“fy”) 到首记录 () ' 本源码来自三叶资源网(www.sanye.cx) n ＝ 取整 (取记录数 () ÷ 6) h ＝ 数据源1.取行数 () l ＝ 数据源1.取列数 () .计次循环首 (n, t) 表格1.复制 (1, 1, 24, 数据源1.取列数 ()) 表格1.粘贴 (数据源1.取行数 () ＋ 1, 1) .计次循环尾 () t ＝ 1 .计次循环首 (h × n, t) 数据源1.置行高 (h ＋ t, 1, 数据源1.取行高 (t ％ h)) .计次循环尾 () .如果 (取记录数 () ÷ 6 ＞ n) n ＝ n ＋ 1 .否则 .如果结束 .计次循环首 (n × 6, i) .如果 (i ≤ 2) a ＝ i b ＝ 1 .否则 .如果 (i ％ 2 ＝ 0) a ＝ 2 b ＝ i ÷ 2 .否则 a ＝ 1 b ＝ 取整 (i ÷ 2) ＋ 1 .如果结束 .如果结束 数据源1.置文本 (8 × (b － 1) ＋ 2, (a － 1) × 3 ＋ 2, 读 (1)) 数据源1.合并 (8 × (b － 1) ＋ 2, (a － 1) × 3 ＋ 2, 2, 1) 数据源1.合并 (8 × (b － 1) ＋ 2, (a － 1) × 3 ＋ 1, 2, 1) 数据源1.置文本 (8 × (b － 1) ＋ 4, (a － 1) × 3 ＋ 2, 读 (2)) 数据源1.合并 (8 × (b － 1) ＋ 4, (a － 1) × 3 ＋ 2, 2, ) 数据源1.合并 (8 × (b － 1) ＋ 4, (a － 1) × 3 ＋ 1, 2, ) 数据源1.置文本 (8 × (b － 1) ＋ 6, (a － 1) × 3 ＋ 2, 读 (3)) 数据源1.合并 (8 × (b － 1) ＋ 6, (a － 1) × 3 ＋ 2, 2, ) 数据源1.合并 (8 × (b － 1) ＋ 6, (a － 1) × 3 ＋ 1, 2, ) 跳过 () .计次循环尾 ()