作者:乔山办公网日期:
返回目录:excel表格制作
.版本 2
.支持库 iext
.子程序 _按钮百1_被单击
.局部变量 记录度, 整数型
.局部变量 索引, 整数型
打开 (取运行目录 () + “\xyz.edb”知, “xyz”, , , , , )
置当前库 (“xyz”)
.变量循环首 (取记录数 (), 1, -1, 记录)
到首记道录 ()
跳到 (记录)
索引 = 超级列表框1.插入表项 (, , , , , )
' ........
.变量循环尾 ()
------------------------------
没有具体专的属程序,实在不好修改,但这些必须要有的.
.版本 2.支持库 iext
打开 (“你要打开的数据库名字.edb”, , , , , , )
超级列表框1.全部删除zd ()
.计次循环首 (取记录数 (), )
位置回 = 超级列表框1.插入表项 (, “0”, , , , )
超级列表框1.置标题答 (位置, 0, 到文本 (读 (1))) ‘数据库有多少个数据就填写多少个读()
超级列表框1.置标题 (位置, 1, 到文本 (读 (2)))
超级列表框1.置标题 (位置, 2, 到文本 (读 (3)))
跳过 ()
.计次循环尾 ()
没有行代码可以直接转的
你可以自己写命令,把表格内容读入变量里
.版本 2
.支持库 iext
打开 (“这里写数据库全路径”, , , , , , ) ' 这里打开数据库
.计次循环首回 (超级列表框1.取表项数 (), i)
加空记录 () ' 加一条空的 行
写 (1, 超级列表框1.取标题 (i - 1, 0)) ' 在数据库的第答一个字段 写入 超级列表框的第0列
写 (2, 超级列表框1.取标题 (i - 1, 1)) ' 在数据库的第二个字段 写入 超级列表框的第1列
.计次循环尾 ()