超级列表框插入内容的问题

1487989386

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口

子程序名	返回值类型	公开	备 注
__启动窗口_创建完毕

如果 (数据库连接1.连接Access (取运行目录 () ＋ “\db1.mdb”, “”) ＝ 真)
信息框 (“连接成功”, 0, “成功”, )
信息框 (“连接失败”, 0, “失败”, )

打开access数据库1 ()

子程序名	返回值类型	公开	备 注
打开access数据库1
参数名	类 型	参考	可空	数组	备 注
文件名	文本型

如果 (数据库连接1.是否已连接 ＝ 真)
记录集1.置连接 (数据库连接1)
记录集1.打开 (“select * from 知识库”, #SQL语句, )
记录集1.到首记录 ()
信息框 (“数据库未连接”, 0, “失败”, )

子程序名	返回值类型	公开	备 注
数据库access关闭			$操作结束后关闭

_启动窗口.记录集1.关闭 ()
_启动窗口.数据库连接1.关闭 ()

子程序名	返回值类型	公开	备 注
__启动窗口_将被销毁

数据库access关闭 ()

子程序名	返回值类型	公开	备 注
_按钮_读取数据_被单击

变量名	类 型	静态	数组	备 注
局_索引号	整数型
名称	文本型
参数	文本型

计次循环首 (记录集1.记录数量, 局_索引号)
记录集1.读文本 (“名称”, 名称)
记录集1.读文本 (“参数”, 参数)
超级列表框1.插入表项 (, , , , , )
超级列表框1.置标题 (局_索引号 － 1, 0, 名称)
超级列表框1.置标题 (局_索引号 － 1, 1, 参数)
记录集1.到下一条 ()
计次循环尾 ()

i支持库列表	支持库注释
eDB	数据库操作支持库
iext	扩展界面支持库一

.版本 2<br /> .支持库 eDB<br /> .支持库 iext<br /> <br /> .程序集 窗口程序集_启动窗口<br /> <br /> .子程序 __启动窗口_创建完毕<br /> <br /> .如果 (数据库连接1.连接Access (取运行目录 () ＋ “\db1.mdb”, “”) ＝ 真)<br />     信息框 (“连接成功”, 0, “成功”, )<br /> .否则<br />     信息框 (“连接失败”, 0, “失败”, )<br /> .如果结束<br /> <br /> 打开access数据库1 ()<br /> <br /> <br /> <br /> .子程序 打开access数据库1<br /> .参数 文件名, 文本型, 可空<br /> <br /> .如果 (数据库连接1.是否已连接 ＝ 真)<br />     记录集1.置连接 (数据库连接1)<br />     记录集1.打开 (“select * from 知识库”, #SQL语句, )<br />     记录集1.到首记录 ()<br /> .否则<br />     信息框 (“数据库未连接”, 0, “失败”, )<br /> .如果结束<br /> <br /> <br /> <br /> .子程序 数据库access关闭, , , $操作结束后关闭<br /> <br /> _启动窗口.记录集1.关闭 ()<br /> _启动窗口.数据库连接1.关闭 ()<br /> <br /> <br /> .子程序 __启动窗口_将被销毁<br /> <br /> 数据库access关闭 ()<br /> <br /> <br /> .子程序 _按钮_读取数据_被单击<br /> .局部变量 局_索引号, 整数型<br /> .局部变量 名称, 文本型<br /> .局部变量 参数, 文本型<br /> <br /> .计次循环首 (记录集1.记录数量, 局_索引号)<br />     记录集1.读文本 (“名称”, 名称)<br />     记录集1.读文本 (“参数”, 参数)<br />     超级列表框1.插入表项 (, , , , , )<br />     超级列表框1.置标题 (局_索引号 － 1, 0, 名称)<br />     超级列表框1.置标题 (局_索引号 － 1, 1, 参数)<br />     记录集1.到下一条 ()<br /> .计次循环尾 ()

代码哪里出错了?

yanmo

输出一下啊 看看有xx吗
记录集1.记录数量

可爱飘

索引错了

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口

子程序名	返回值类型	公开	备 注
__启动窗口_创建完毕

如果 (数据库连接1.连接Access (取运行目录 () ＋ “\db1.mdb”, “”) ＝ 真)
信息框 (“连接成功”, 0, “成功”, )
信息框 (“连接失败”, 0, “失败”, )

打开access数据库1 ()

子程序名	返回值类型	公开	备 注
打开access数据库1
参数名	类 型	参考	可空	数组	备 注
文件名	文本型

如果 (数据库连接1.是否已连接 ＝ 真)
记录集1.置连接 (数据库连接1)
记录集1.打开 (“select * from 知识库”, #SQL语句, )
记录集1.到首记录 ()
信息框 (“数据库未连接”, 0, “失败”, )

子程序名	返回值类型	公开	备 注
数据库access关闭			$操作结束后关闭

_启动窗口.记录集1.关闭 ()
_启动窗口.数据库连接1.关闭 ()

子程序名	返回值类型	公开	备 注
__启动窗口_将被销毁

数据库access关闭 ()

子程序名	返回值类型	公开	备 注
_按钮_读取数据_被单击

变量名	类 型	静态	数组	备 注
局_索引号	整数型
名称	文本型
参数	文本型

计次循环首 (记录集1.记录数量, 局_索引号)
记录集1.读文本 (“名称”, 名称)
记录集1.读文本 (“参数”, 参数)
局_索引号=超级列表框1.插入表项 (, , , , , )
超级列表框1.置标题 (局_索引号 － 1, 0, 名称)
超级列表框1.置标题 (局_索引号 － 1, 1, 参数)
记录集1.到下一条 ()
计次循环尾 ()

i支持库列表	支持库注释
eDB	数据库操作支持库
iext	扩展界面支持库一

.版本 2<br /> .支持库 eDB<br /> .支持库 iext<br /> <br /> .程序集 窗口程序集_启动窗口<br /> <br /> .子程序 __启动窗口_创建完毕<br /> <br /> .如果 (数据库连接1.连接Access (取运行目录 () ＋ “\db1.mdb”, “”) ＝ 真)<br />     信息框 (“连接成功”, 0, “成功”, )<br /> .否则<br />     信息框 (“连接失败”, 0, “失败”, )<br /> .如果结束<br /> <br /> 打开access数据库1 ()<br /> <br /> <br /> <br /> .子程序 打开access数据库1<br /> .参数 文件名, 文本型, 可空<br /> <br /> .如果 (数据库连接1.是否已连接 ＝ 真)<br />     记录集1.置连接 (数据库连接1)<br />     记录集1.打开 (“select * from 知识库”, #SQL语句, )<br />     记录集1.到首记录 ()<br /> .否则<br />     信息框 (“数据库未连接”, 0, “失败”, )<br /> .如果结束<br /> <br /> <br /> <br /> .子程序 数据库access关闭, , , $操作结束后关闭<br /> <br /> _启动窗口.记录集1.关闭 ()<br /> _启动窗口.数据库连接1.关闭 ()<br /> <br /> <br /> .子程序 __启动窗口_将被销毁<br /> <br /> 数据库access关闭 ()<br /> <br /> <br /> .子程序 _按钮_读取数据_被单击<br /> .局部变量 局_索引号, 整数型<br /> .局部变量 名称, 文本型<br /> .局部变量 参数, 文本型<br /> <br /> .计次循环首 (记录集1.记录数量, 局_索引号)<br />     记录集1.读文本 (“名称”, 名称)<br />     记录集1.读文本 (“参数”, 参数)<br />     局_索引号=超级列表框1.插入表项 (, , , , , )<br />     超级列表框1.置标题 (局_索引号 － 1, 0, 名称)<br />     超级列表框1.置标题 (局_索引号 － 1, 1, 参数)<br />     记录集1.到下一条 ()<br /> .计次循环尾 ()

可爱飘

索引  插入表项前面加个局_索引号=

1487989386

可爱飘 发表于 2020-3-8 14:36
索引  插入表项前面加个局_索引号=

补充内容 (2020-3-8 14:39):
不行

可爱飘

局_索引号=超级列表框.插入表项()

1487989386

可爱飘 发表于 2020-3-8 14:40
局_索引号=超级列表框.插入表项()

还是没有 数据库_数据库写入超级列表框.e (844.76 KB, 下载次数: 0)

2020-3-8 14:45 上传

点击文件名下载附件

末影人

.版本 2
.支持库 eDB
.支持库 iext

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

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

.如果 (数据库连接1.连接Access (取运行目录 () ＋ “\db1.mdb”, “”) ＝ 真)
    信息框 (“连接成功”, 0, “成功”, )
.否则
    信息框 (“连接失败”, 0, “失败”, )
.如果结束

打开access数据库1 ()



.子程序 打开access数据库1
.参数 文件名, 文本型, 可空

.如果 (数据库连接1.是否已连接 ＝ 真)
    记录集1.置连接 (数据库连接1)
    记录集1.打开 (“select * from 知识库”, #SQL语句, )
    记录集1.到首记录 ()
.否则
    信息框 (“数据库未连接”, 0, “失败”, )
.如果结束



.子程序 数据库access关闭, , , $操作结束后关闭

_启动窗口.记录集1.关闭 ()
_启动窗口.数据库连接1.关闭 ()


.子程序 __启动窗口_将被销毁

数据库access关闭 ()


.子程序 _按钮_读取数据_被单击
.局部变量 局_索引号, 整数型
.局部变量 名称, 文本型
.局部变量 参数, 文本型

.计次循环首 (记录集1.记录数量, 局_索引号)
    记录集1.读文本 (“名称”, 名称)
    记录集1.读文本 (“参数”, 参数)
    局_索引号=超级列表框1.插入表项 (, , , , , )
    超级列表框1.置标题 (局_索引号 － 1, 0, 名称)
    超级列表框1.置标题 (局_索引号 － 1, 1, 参数)
    记录集1.到下一条 ()
.计次循环尾 ()

末影人

超级列表框.插入表项() 那句的前面打上  局_索引号=

1487989386

1487989386 发表于 2020-3-8 14:45
还是没有

易语言.rar (19.28 KB, 下载次数: 1)

2020-3-8 14:47 上传

点击文件名下载附件
这个数据库文件