版本1.7
.版本 2
.子程序 EDB到高级表格, 文本型, 公开, 成功返回以“/”为分割符的列最大宽度并关闭原数据库,失败返回空文本;能自动调整列宽.
.参数 高级表格, 高级表格
.参数 数据库文件名, 文本型
.参数 数据库密码, 文本型, 可空
.子程序 XLS到高级表格, 逻辑型, 公开, 成功返回真,失败返回假;格式:XLS到高级表格(XLS文件名,高级表格,Excel程序,Excel工作簿,外部数据库)
.参数 XLS文件名, 文本型
.参数 高级表格, 高级表格
.参数 Excel程序, Excel程序
.参数 Excel工作簿, Excel工作簿
.参数 外部数据库, 外部数据库
.子程序 编辑备注内容, 文本型, 公开, 在高级表格中编辑易库的备注型字段,若按了保存钮,则返回编辑后的内容,否则返回原内容。
.参数 原内容, 文本型, , 备注的原内容
.子程序 查看字节集, 文本型, 公开, 以文本表示字节集,适合于字节集的调试用
.参数 字节集, 字节集, , 要查看的字节集
.子程序 高级表格到EDB, 逻辑型, 公开, 成功返回真,失败返回假;高级表格到EDB
.版本 2
.支持库 eGrid
.支持库 spec
.子程序 _按钮1_被单击
.局部变量 a, 整数型
高级表格1.清空单元格数据 (1, 1, , )
.如果真 (打开 (程_数据库, , , , , , ) = 假)
返回 ()
.如果真结束
到首记录 ()
调试输出 (取记录数 (), 读 (1), 读 (2), 读 (3), 读 (4))
.计次循环首 (取记录数 (), a)
.如果真 (a = 高级表格1.行数)
高级表格1.插入行 (, )
.如果真结束
高级表格1.置数据 (a, 0, 1, 读 (1))
高级表格1.置数据 (a, 1, 1, 读 (2))
高级表格1.置数据 (a, 2, 1, 读 (3))
高级表格1.置数据 (a, 3, 1, 读 (4))
高级表格1.置数据 (a, 4, 1, 读 (5))
高级表格1.置数据 (a, 5, 1, 读 (6))
高级表格1.置数据 (a, 6, 1, 读 (7))
高级表格1.置数据 (a, 7, 1, 读 (8))
跳过 ()
.计次循环尾 ()
关闭 (程_数据库)
.支持库 eGrid
.支持库 spec
.子程序 _按钮1_被单击
.局部变量 a, 整数型
高级表格1.清空单元格数据 (1, 1, , )
.如果真 (打开 (程_数据库, , , , , , ) = 假)
返回 ()
.如果真结束
到首记录 ()
调试输出 (取记录数 (), 读 (1), 读 (2), 读 (3), 读 (4))
.计次循环首 (取记录数 (), a)
.如果真 (a = 高级表格1.行数)
高级表格1.插入行 (, )
.如果真结束
高级表格1.置数据 (a, 0, 1, 读 (1))
高级表格1.置数据 (a, 1, 1, 读 (2))
高级表格1.置数据 (a, 2, 1, 读 (3))
高级表格1.置数据 (a, 3, 1, 读 (4))
高级表格1.置数据 (a, 4, 1, 读 (5))
高级表格1.置数据 (a, 5, 1, 读 (6))
高级表格1.置数据 (a, 6, 1, 读 (7))
高级表格1.置数据 (a, 7, 1, 读 (8))
跳过 ()
.计次循环尾 ()
关闭 (程_数据库)