|
发表于 2024-9-15 12:52:23
|
显示全部楼层
河北省保定市
.版本 2
.支持库 iext
.支持库 spec
.程序集 窗口程序集_启动窗口
.子程序 __启动窗口_创建完毕
.局部变量 i, 整数型
.计次循环首 (1000, i)
超级列表框1.插入表项 (, , , , , )
超级列表框1.置标题 (i - 1, 0, 到文本 (i - 1)) '这里要转成文本型
.计次循环尾 ()
.子程序 下一个检索列表
.参数 检索到的行数数组, 整数型, 数组, 传入查找到的行数
.局部变量 当前项, 整数型, 静态
.局部变量 sy, 整数型
调试输出 (当前项)
当前项 = 当前项 + 1
.如果真 (取数组成员数 (检索到的行数数组) < 当前项) ‘这里要改成<
当前项 = 1
.如果真结束
sy = 检索到的行数数组 [当前项]
超级列表框1.保证显示 (sy)
超级列表框1.获取焦点 ()
超级列表框1.现行选中项 = sy '这里获取焦点
.子程序 _按钮1_被单击
下一个检索列表 ({ 100, 200, 300, 400, 500 })
代码有点问题
|
|