.版本 2
.支持库 SqliteDB
.局部变量 表数组, 文本型, , "0"
.局部变量 i, 整数型
.局部变量 s, 文本型
表数组 ＝ 数据库.取表内容 (取表名 (), 选择框_含表头.选中)
数组导入高级表格 (高级表格1, 表数组, 选择框_含表头.选中, 真)
-------------------------------
.版本 2
.支持库 eGrid
.子程序 数组导入高级表格
.参数 表格, 高级表格
.参数 数组, 文本型, 数组
.参数 含表头, 逻辑型, 可空
.参数 加序号, 逻辑型, 可空, 是否在表格最左边添加“序号”列(1,2,..)
.局部变量 行数, 整数型
.局部变量 列数, 整数型
.局部变量 行, 整数型
.局部变量 列, 整数型
.局部变量 i, 整数型
.局部变量 序号, 文本型
.如果真 (是否为空 (含表头))
含表头 ＝ 假
.如果真结束
.如果真 (是否为空 (加序号))
加序号 ＝ 真
.如果真结束
行数 ＝ 取数组下标 (数组, 1)
列数 ＝ 取数组下标 (数组, 2)
检查 (取数组下标 (数组, 3) ＝ 0) ' 只能为一维或二维数组
表格.清空数据 ()
表格.表头行数 ＝ 0
表格.表头列数 ＝ 0
列数 ＝ 选择 (列数 ＞ 0, 列数, 1)
行数 ＝ 选择 (行数 ＞ 0, 行数, 1)
表格.行数 ＝ 行数
表格.列数 ＝ 列数
' 将数组内容写入表格
.计次循环首 (取数组成员数 (数组), i)
行 ＝ (i － 1) ÷ 列数
列 ＝ (i － 1) ％ 列数
表格.置数据 (行, 列, #表格常量.文本型, 数组 [i])
.计次循环尾 ()
' 在表格最左边添加“序号”列
.如果真 (加序号)
表格.插入列 (“序号”, 0)
.计次循环首 (行数, i)
.如果 (i ＝ 1 且 含表头)
序号 ＝ “序号”
.否则
序号 ＝ 到文本 (选择 (含表头, i － 1, i))
.如果结束
表格.置数据 (i － 1, 0, #表格常量.文本型, 序号)
.计次循环尾 ()
.如果真结束
表格.表头行数 ＝ 选择 (含表头, 1, 0)
表格.表头列数 ＝ 选择 (加序号, 1, 0)
