Question

易语言高级表格中，插入表格后，如何将表格内容写入EDB数据库

易语言高级表格中，插入表格后，如何将表格内容写入EDB数据库

Answer 1

计次循环首(高级表格.行数-高级表格.表头行数,计次)
执行写入命令( 取数据方式为:高级表格1.取数据(高级表格.表头行数-计次+1,列号))
计次循环尾

追问

按你的源码试了一下，不行，可以提供源码文件吗

追答

.版本 2
.支持库 eGrid
.支持库 eAPI
.支持库 spec
.计次循环首 (后品检工时设定表.行数 － 1, 计次)
.判断开始 (到数值 (后品检工时设定表.取数据 (计次, 3)) ＞ 0)
sql ＝ “update hpj_hours set hours=” ＋ 到文本 (到数值 (后品检工时设定表.取数据 (计次, 7))) ＋ “,remark='” ＋ 删首尾空 (到文本 (后品检工时设定表.取数据 (计次, 8))) ＋ “' where [id]=” ＋ 到文本 (到数值 (后品检工时设定表.取数据 (计次, 3)))
.默认
sql ＝ “insert into hpj_hours (employeeid,pri_id,data,hours,remark) values (” ＋ 到文本 (到数值 (后品检工时设定表.取数据 (计次, 1))) ＋ “,” ＋ 到文本 (到数值 (后品检工时设定表.取数据 (计次, 2))) ＋ “,convert(smalldatetime,'” ＋ 格式化文本 (“%04d-%02d-%02d”, 取年份 (日期框3.今天), 取月份 (日期框3.今天), 取日 (日期框3.今天)) ＋ “',121),” ＋ 到文本 (到数值 (后品检工时设定表.取数据 (计次, 7))) ＋ “,'” ＋ 删首尾空 (到文本 (后品检工时设定表.取数据 (计次, 8))) ＋ “')”
.判断结束
.如果 (主数据库.执行 (sql, ) ＝ 真)
.否则
信息框 (“保存到第 ” ＋ 到文本 (计次) ＋ “ 行数据时出错，请检查数据，重新保存·！”, 0, )
调试输出 (sql)
H后处理品检工时设定.更新待保存工时表 ()
返回 ()
.如果结束
.计次循环尾 ()

---保存的方式都是逐行逐列进行读取数据，但不同的数据库有不同的保存命令或方式，基本的思想是一样的，你要学会融会贯通。