超级列表框导出excel的时候数字会变E - 精易论坛

子程序名	返回值类型	公开	备注
超级列表框_导出xls	逻辑型		只适用于报表列表框
参数名	类型	参考	可空	数组	备注
保存文件	文本型				保存路径
列表框	超级列表框				超级列表框对象
是否保存表头	逻辑型				为真保存，为假不保存
报表标题	文本型				为空无标题，

变量名	类型	静态	数组	备注
局_文件号	整数型
列数	整数型
表项数	整数型
i	整数型
j	整数型
p	整数型

局_文件号＝打开文件 (保存文件, 4, 1)
表项数＝列表框.取表项数 ()
列数＝列表框.取列数 ()
移到文件首 (局_文件号)

如果真 (报表标题 ≠ “”)

写文本行 (局_文件号, #超级列表框_导出xls_常量3 )

写文本行 (局_文件号, “ ”)

写文本行 (局_文件号, “” ＋报表标题＋ “”)

写文本行 (局_文件号, “ ”)

写文本行 (局_文件号, #超级列表框_导出xls_常量2 )
写文本行 (局_文件号, #超级列表框_导出xls_常量1 )

如果真 (是否保存表头＝真)

写文本行 (局_文件号, “ ”)

计次循环首 (列数, p)

写文本行 (局_文件号, “ ” ＋列表框.取列标题 (p － 1) ＋ “”)

计次循环尾 ()

写文本行 (局_文件号, “ ”)

计次循环首 (表项数, i)

写文本行 (局_文件号, “ ”)

计次循环首 (列数, j)

写文本行 (局_文件号, “ ” ＋列表框.取标题 (i － 1, j － 1) ＋ “”)

计次循环尾 ()

写文本行 (局_文件号, “ ”)

计次循环尾 ()
写文本行 (局_文件号, #超级列表框_导出xls_常量2 )
关闭文件 (局_文件号)
返回 (真)

i支持库列表	支持库注释
iext	扩展界面支持库一

.版本 2<br />
.支持库 iext<br />
<br />
.子程序 超级列表框_导出xls, 逻辑型, 公开, 只适用于报表列表框<br />
.参数 保存文件, 文本型, , 保存路径<br />
.参数 列表框, 超级列表框, , 超级列表框对象<br />
.参数 是否保存表头, 逻辑型, , 为真保存，为假不保存<br />
.参数 报表标题, 文本型, 可空, 为空无标题，<br />
.局部变量 局_文件号, 整数型<br />
.局部变量 列数, 整数型<br />
.局部变量 表项数, 整数型<br />
.局部变量 i, 整数型<br />
.局部变量 j, 整数型<br />
.局部变量 p, 整数型<br />
<br />
局_文件号 ＝ 打开文件 (保存文件, 4, 1)<br />
表项数 ＝ 列表框.取表项数 ()<br />
列数 ＝ 列表框.取列数 ()<br />
移到文件首 (局_文件号)<br />
.如果真 (报表标题 ≠ “”)<br />
    写文本行 (局_文件号, #超级列表框_导出xls_常量3)<br />
    写文本行 (局_文件号, “  ”)<br />
    写文本行 (局_文件号, “” ＋ 报表标题 ＋ “”)<br />
    写文本行 (局_文件号, “  ”)<br />
    写文本行 (局_文件号, #超级列表框_导出xls_常量2)<br />
.如果真结束<br />
写文本行 (局_文件号, #超级列表框_导出xls_常量1)<br />
.如果真 (是否保存表头 ＝ 真)<br />
    写文本行 (局_文件号, “  ”)<br />
    .计次循环首 (列数, p)<br />
        写文本行 (局_文件号, “    ” ＋ 列表框.取列标题 (p － 1) ＋ “”)<br />
    .计次循环尾 ()<br />
    写文本行 (局_文件号, “  ”)<br />
.如果真结束<br />
.计次循环首 (表项数, i)<br />
    写文本行 (局_文件号, “  ”)<br />
    .计次循环首 (列数, j)<br />
        写文本行 (局_文件号, “    ” ＋ 列表框.取标题 (i － 1, j － 1) ＋ “”)<br />
    .计次循环尾 ()<br />
    写文本行 (局_文件号, “  ”)<br />
.计次循环尾 ()<br />
写文本行 (局_文件号, #超级列表框_导出xls_常量2)<br />
关闭文件 (局_文件号)<br />
返回 (真)

子程序名	返回值类型	公开	备注
超级列表框_导出xls	逻辑型		只适用于报表列表框
参数名	类型	参考	可空	数组	备注
保存文件	文本型				保存路径
列表框	超级列表框				超级列表框对象
是否保存表头	逻辑型				为真保存，为假不保存
报表标题	文本型				为空无标题，

变量名	类型	静态	数组	备注
局_文件号	整数型
列数	整数型
表项数	整数型
i	整数型
j	整数型
p	整数型

局_文件号＝打开文件 (保存文件, 4, 1)
表项数＝列表框.取表项数 ()
列数＝列表框.取列数 ()
移到文件首 (局_文件号)

如果真 (报表标题 ≠ “”)

写文本行 (局_文件号, #超级列表框_导出xls_常量3 )

写文本行 (局_文件号, “ ”)

写文本行 (局_文件号, “” ＋报表标题＋ “”)

写文本行 (局_文件号, “ ”)

写文本行 (局_文件号, #超级列表框_导出xls_常量2 )
写文本行 (局_文件号, #超级列表框_导出xls_常量1 )

如果真 (是否保存表头＝真)

写文本行 (局_文件号, “ ”)

计次循环首 (列数, p)

写文本行 (局_文件号, “ ” ＋列表框.取列标题 (p － 1) ＋ “”)

计次循环尾 ()

写文本行 (局_文件号, “ ”)

计次循环首 (表项数, i)

写文本行 (局_文件号, “ ”)

计次循环首 (列数, j)

写文本行 (局_文件号, “ ” ＋列表框.取标题 (i － 1, j － 1) ＋ “”)

计次循环尾 ()

写文本行 (局_文件号, “ ”)

计次循环尾 ()
写文本行 (局_文件号, #超级列表框_导出xls_常量2 )
关闭文件 (局_文件号)
返回 (真)

i支持库列表	支持库注释
iext	扩展界面支持库一

.版本 2<br />
.支持库 iext<br />
<br />
.子程序 超级列表框_导出xls, 逻辑型, 公开, 只适用于报表列表框<br />
.参数 保存文件, 文本型, , 保存路径<br />
.参数 列表框, 超级列表框, , 超级列表框对象<br />
.参数 是否保存表头, 逻辑型, , 为真保存，为假不保存<br />
.参数 报表标题, 文本型, 可空, 为空无标题，<br />
.局部变量 局_文件号, 整数型<br />
.局部变量 列数, 整数型<br />
.局部变量 表项数, 整数型<br />
.局部变量 i, 整数型<br />
.局部变量 j, 整数型<br />
.局部变量 p, 整数型<br />
<br />
局_文件号 ＝ 打开文件 (保存文件, 4, 1)<br />
表项数 ＝ 列表框.取表项数 ()<br />
列数 ＝ 列表框.取列数 ()<br />
移到文件首 (局_文件号)<br />
.如果真 (报表标题 ≠ “”)<br />
    写文本行 (局_文件号, #超级列表框_导出xls_常量3)<br />
    写文本行 (局_文件号, “  ”)<br />
    写文本行 (局_文件号, “” ＋ 报表标题 ＋ “”)<br />
    写文本行 (局_文件号, “  ”)<br />
    写文本行 (局_文件号, #超级列表框_导出xls_常量2)<br />
.如果真结束<br />
写文本行 (局_文件号, #超级列表框_导出xls_常量1)<br />
.如果真 (是否保存表头 ＝ 真)<br />
    写文本行 (局_文件号, “  ”)<br />
    .计次循环首 (列数, p)<br />
        写文本行 (局_文件号, “    ” ＋ 列表框.取列标题 (p － 1) ＋ “”)<br />
    .计次循环尾 ()<br />
    写文本行 (局_文件号, “  ”)<br />
.如果真结束<br />
.计次循环首 (表项数, i)<br />
    写文本行 (局_文件号, “  ”)<br />
    .计次循环首 (列数, j)<br />
        写文本行 (局_文件号, “    ” ＋ 列表框.取标题 (i － 1, j － 1) ＋ “”)<br />
    .计次循环尾 ()<br />
    写文本行 (局_文件号, “  ”)<br />
.计次循环尾 ()<br />
写文本行 (局_文件号, #超级列表框_导出xls_常量2)<br />
关闭文件 (局_文件号)<br />
返回 (真)