.版本 2.支持库 iext
.子程序 _按钮1_被单击
.如果真 (超级列表框1.现行选中项 < 0)
返回 ()
.如果真结束
超级列表框1.插入表项 (超级列表框1.现行选中项, “插入了选择项的上一行”, , , , )
.子程序 _编辑框1_内容被改变
' 你的意思是这样吗?
超级列表框1.选择表项 (到整数 (编辑框1.内容))
.版本 2.支持库 iext
.程序集 窗口程序集1
.子程序 _超级列表框1_当前表项被改变
编辑框1.内容 = 超级列表框1.取标题 (0, 0)
.子程序 _编辑框1_内容被改变
超级列表框1.置标题 (超级列表框1.现行选中项, 0, 编辑框1.内容)