.计次循环首 (取数组成员数 (表头), i1)
xlSheetWriteStrA (s, 0, i1 － 1, 取文本指针 (表头 [i1]), g)
.计次循环尾 ()
.计次循环首 (总数, i)
.计次循环首 (9, i1)
记录集1.读文本 (i1 － 1, t)
n ＝ 记录集1.取字段类型 (i1 － 1)
xlSheetWriteStrA (s, i, i1 － 1, 取文本指针 (t), g)
.计次循环尾 ()
进度条1.位置 ＝ i
记录集1.到下一条 ()
.计次循环尾 ()
上一篇 返回列表