|
楼主 |
发表于 2023-5-13 12:58:59
|
显示全部楼层
江苏省苏州市
.版本 2
.支持库 iext
.局部变量 Seek, 整数型
.局部变量 dat, 整数型
.局部变量 局索引索引, 整数型
.计次循环首 (超级列表框1.取列数 (), dat)
Seek = 超级列表框1.查找表项 (股票代码.内容, 1, , ) ' 2表示超级列表框的第三列
.如果真 (Seek ≠ -1)
超级列表框1.现行选中项 = Seek
超级列表框1.保证显示 (1)
局索引索引 = 超级列表框2.插入表项 (, , , , , )
超级列表框2.置标题 (局索引索引, 0, 超级列表框1.取标题 (dat - 1, 0))
超级列表框2.置标题 (局索引索引, 1, 超级列表框1.取标题 (dat - 1, 1))
超级列表框2.置标题 (局索引索引, 2, 超级列表框1.取标题 (dat - 1, 2))
超级列表框2.置标题 (局索引索引, 3, 超级列表框1.取标题 (dat - 1, 3))
超级列表框1.删除表项 (dat - 1)
跳出循环 ()
.如果真结束
.计次循环尾 ()
.如果 (Seek = -1)
信息框 (“找不到!”, 0, , )
.否则
超级列表框1.获取焦点 ()
超级列表框1.选择表项 (Seek)
改后的代码如上
|
|