【易语言】如何把超级列表框的数据内容保存到MDB数据库！！

.版本 2

.支持库 iext

.局部变量 变量, 整数型

.计次循环首 (超级列表框_主窗口.取表项数 (), 变量)

外部数据库.执行 ("insert into 进货表

(货品名称, 规格, 单位, 数量, 单价, 金额, 单据编号, 进货日期, 入帐时间) values ('" + 超级列表框_主窗口.取标题 (变量 － 1, 0) + "','" + 超级列表框_主窗口.取标题 (变量 － 1, 1) + "','" + 超级列表框_主窗口.取标题 (变量 － 1, 2) + "','" + 超级列表框_主窗口.取标题 (变量 － 1, 3)+"','"+ 超级列表框_主窗口.取标题 (变量 － 1, 4) + "','" + 超级列表框_主窗口.取标题 (变量 － 1, 5) + "','" + 超级列表框_主窗口.取标题 (变量 － 1, 6) + "','" + 超级列表框_主窗口.取标题 (变量 － 1, 7)+ "','" + 超级列表框_主窗口.取标题 (变量 － 1, 8) + "')", )

.计次循环尾 ()

给你做一个电话号码薄的例子，供你借鉴

先建一个电话号码薄的窗口：姓名编辑框，工作单位编辑框，电话号码编辑框。并添加一个“按钮1”。然后创建“电话号码薄.edb”数据库。在窗口程序中填入：

.版本 2

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

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

.如果 (信息框 (“请检查填写是否正确，登记后无法更改，确定吗？”, 4, ) ＝ #是钮)

.如果 (姓名编辑框.内容 ≠ “”)

.如果 (单位编辑框.内容 ≠ “”)

.如果 (号码编辑框.内容 ≠ “”)

打开 (“电话号码薄.edb”, , , , , , )

置当前库 (“电话号码薄.edb”)

加空记录 ()

跳到 (取记录号 ())

写字段 (#序号, “电话号码薄”, 到文本 (取记录数 ()))

写字段 (#姓名, “电话号码薄”, 到文本 (姓名编辑框.内容))

写字段 (#工作单位, “电话号码薄”, 到文本 (单位编辑框.内容))

写字段 (#电话号码, “电话号码薄”, 到文本 (号码编辑框.内容))

.否则

信息框 (“姓名未填，请补填”, 0, )

.如果结束

.否则

信息框 (“工作单位未填，请补填”, 0, )

.如果结束

.否则

信息框 (“电话号码未填，请补填”, 0, )

.如果结束

.否则

信息框 (“资料填写不完整，登记不成功，请核对重新输入”, 0, )

.如果结束

不知您弄明白没有

---