易语言高级表格写入MYSQL_易语言高级表格读写EXCEL源码

.版本 2

.支持库 iext

.支持库 eDB

.支持库 eGrid

.子程序 _打开EXCEL按钮_被单击

.局部变量 表名数组, 文本型, , "0"

.局部变量 i, 整数型

.局部变量 表总数, 整数型

.局部变量 数据库名, 文本型

.局部变量 当前父项目索引, 整数型

.局部变量 保存库名及索引, 库名及索引

.局部变量 计次变量, 整数型

通用对话框1.初始目录 ＝ 取运行目录 ()

通用对话框1.过滤器 ＝ “(*.xls)|*.xls|(*.*)|*.*”

.如果真 (通用对话框1.打开 ())

当前数据库 ＝ 通用对话框1.文件名

取excel文档表名 (通用对话框1.文件名, 表名数组)

.变量循环首 (1, 取数组成员数 (表名数组), 1, i)

输出调试文本 (表名数组 [i])

.变量循环尾 ()

.如果真结束

表总数 ＝ 取数组成员数 (表名数组)

数据库名 ＝ 取文本右边 (当前数据库, 取文本长度 (当前数据库) － 倒找文本 (当前数据库, “\”, , 假))

当前父项目索引 ＝ 树型框1.加入项目 (-1, 数据库名, 0, , , , )

保存库名及索引.索引 ＝ 当前父项目索引

保存库名及索引.数据库名 ＝ 当前数据库

加入成员 (数据库名保存数组, 保存库名及索引)

.计次循环首 (表总数, 计次变量)

树型框1.加入项目 (当前父项目索引, 表名数组 [计次变量], 1, , , , )

.计次