易语言两个数据库之间内容复制？

.版本 2

.程序集 窗口程序集_启动窗口

.程序集变量 字段数, 整数型

.程序集变量 字段内容, 文本型

.子程序 _按钮1_被单击

.子程序 __启动窗口_创建完毕

.局部变量 记录数, 整数型

.局部变量 i, 整数型

这里只是给你一个思路，可以思考这个思路，然后在去实现你想要更好的效果，编程的答案是没有固定的，所以要学会借鉴思路，举一反三。

打开 (“C:\Users\Administrator\Desktop\123.edb”, , , , , , )  ' 这是数据库地址位置。这是第一个数据库。

字段数 ＝ 取字段数 ()

i ＝ 1

.计次循环首 (字段数, i)

  打开 (“C:\Users\Administrator\Desktop\123.edb”, , , , , , )

  字段内容 ＝ 读 (i)

  .如果真 (字段内容 ≠ “”)

      打开 (“C:\Users\Administrator\Desktop\456.edb”, , , , , , )  ' 这是第二个数据库，就是复制第一个数据库的内容。

      记录数 ＝ 取记录数 ()

      .如果 (记录数 ＝ 0)

          加空记录 ()

          写 (i, 字段内容)

          全部关闭 ()

      .否则

      .如果结束

      写 (i, 字段内容)

      全部关闭 ()

  .如果真结束

.计次循环尾 ()

.版本 2

.程序集 窗口程序集1

.子程序 __启动窗口_创建完毕

打开 (取运行目录 () ＋ “\数据库1.edb”, “数据库1”, , , , , )

打开 (取运行目录 () ＋ “\数据库2.edb”, “数据库2”, , , , , )

.子程序 _工具条1_被单击

.参数 按钮索引, 整数型

置当前库 (“数据库1”)

到首记录 ()

.子程序 _高级选择夹1_子夹被改变

置当前库 (“数据库2”)

到首记录 ()

---