现在真的很麻烦。这足够简单清楚吗
复制代码代码如下所示：
<
朦胧的我，J，艾科尔斯
i = 0/定义i循环
艾科尔斯= 3 / /几列（正整数）
响应。写（vbnewline / /输出）的表头和第一章
而不是别人。 / /开始分解为ors.recordcount下一个记录集的输出线
如果我0我的MOD艾科尔斯= 0然后响应。写（vbnewline / /如果）列等于艾科尔斯线数
i = i + 1
响应。写（输出我栏记录vbnewline）
ors.movenext
循环输出记录集
OR。关闭
J = 1 - 1 / 艾科尔斯开始弥补空记录，填写icols-1
如果我的MOD艾科尔斯然后退出= 0 / /数字艾科尔斯不再有足够的输出
i = i + 1
响应。写（补充J记录vbnewline）
下一个
响应。写（vbnewline / /输出）的表尾
%>