再次求助，超列指定行插入

xf702

代码已传上，请高手帮帮忙。。。在鼠标点选的指定行插入数据

lisher

这种方法对付数据量不大的数据库可以用用

  

子程序名	返回值类型	公开	备 注
_按钮3_被单击			指定行插入按钮

变量名	类 型	静态	数组	备 注
i	整数型

超级列表框1.插入表项 (超级列表框1.现行选中项, , , , , )
超级列表框1.置标题 (超级列表框1.现行选中项 － 1, 1, 编辑框1.内容)
超级列表框1.置标题 (超级列表框1.现行选中项 － 1, 2, 编辑框2.内容)
超级列表框1.置标题 (超级列表框1.现行选中项 － 1, 3, 编辑框3.内容)
清空 ()  ' 清空数据库
计次循环首 (超级列表框1.取表项数 (), i)  ' 重置序号
超级列表框1.置标题 (i － 1, 0, 到文本 (i))
置当前库 (“测试”)
加空记录 ()
写 ( #姓名, 超级列表框1.取标题 (i － 1, 1))
写 ( #性别, 超级列表框1.取标题 (i － 1, 2))
写 ( #年龄, 超级列表框1.取标题 (i － 1, 3))
计次循环尾 ()
调试输出 (取记录数 ())

i支持库列表	支持库注释
iext	扩展界面支持库一
spec	特殊功能支持库

.版本 2<br /> .支持库 iext<br /> .支持库 spec<br /> <br /> .子程序 _按钮3_被单击, , , 指定行插入按钮<br /> .局部变量 i, 整数型<br /> <br /> 超级列表框1.插入表项 (超级列表框1.现行选中项, , , , , )<br /> 超级列表框1.置标题 (超级列表框1.现行选中项 － 1, 1, 编辑框1.内容)<br /> 超级列表框1.置标题 (超级列表框1.现行选中项 － 1, 2, 编辑框2.内容)<br /> 超级列表框1.置标题 (超级列表框1.现行选中项 － 1, 3, 编辑框3.内容)<br /> <br /> 清空 ()  ' 清空数据库<br /> .计次循环首 (超级列表框1.取表项数 (), i)  ' 重置序号<br />     超级列表框1.置标题 (i － 1, 0, 到文本 (i))<br />     置当前库 (“测试”)<br />     加空记录 ()<br />     写 (#姓名, 超级列表框1.取标题 (i － 1, 1))<br />     写 (#性别, 超级列表框1.取标题 (i － 1, 2))<br />     写 (#年龄, 超级列表框1.取标题 (i － 1, 3))<br /> <br /> .计次循环尾 ()<br /> <br /> 调试输出 (取记录数 ())

鹏书

xf702

鹏书 发表于 2023-6-3 09:53

插入后，原有数据下移，并写入EDB，能帮修改一下吗？不知道怎么写。。

鹏书

xf702 发表于 2023-6-3 09:54
插入后，原有数据下移，并写入EDB，能帮修改一下吗？不知道怎么写。。

edb应该是不能往中间写入数据吧

b0y

数据库没有插入把,数据库在加个字段 原来记录排序 按排序读取

xf702

b0y 发表于 2023-6-3 10:07
数据库没有插入把,数据库在加个字段 原来记录排序 按排序读取

先在超列中插入行，再写入EDB？还是先在EDB中插入数据，再通过超列读出来？

xf702

鹏书 发表于 2023-6-3 09:59
edb应该是不能往中间写入数据吧

数据量不大，1000条以内，所以用EDB。。

b0y

xf702 发表于 2023-6-3 10:11
先在超列中插入行，再写入EDB？还是先在EDB中插入数据，再通过超列读出来？ ...

先加入超列 然后按超列中的索引  给数据库的排序字段赋值
读取的时候 在按排序字段读入超列

补充内容 (2023-6-3 10:15):
不过这个排序有什么用? 感觉多此一举.读取到超列 用户在根据用户名 年龄 来点击表头排序不就行了

忘了什么

看看是不是这样？
指定行插入.zip (71.08 KB, 下载次数: 1)

2023-6-3 11:49 上传

点击文件名下载附件






补充内容 (2023-6-3 11:59):
正确的在11楼https://bbs.125.la/forum.php?mod ... 73&pid=25980482