易语言数据库日期时间型数据按条件显示到超级列表框

决然

超级列表框问题求助，超级列表框读入记录编辑器里的内容，类型是日期时间型数据，想实现通过点击选择框来筛选记录编辑器里的数据，取时间间隔小于30天的，然后显示到超级列表框内，其它未筛选到的不删除，现在已经显示到超级列表框了，只是需要点击选择框三次以后才能筛选出正确的值，请高手看一下代码有什么问题,.版本 2
.支持库 iext
.支持库 spec
.子程序 _选择框2_被单击
.局部变量 q, 整数型
.局部变量 c, 整数型
选择框1.选中 ＝ 假
读取数据 ()
到首记录 ()
.计次循环首 (取记录数 (), c)
    .如果真 (取时间间隔 (取日期 (到时间 (超级列表框1.取标题 (q, 5))), 取日期 (取现行时间 ()), 5) ＜ 30)
        q ＝ 超级列表框1.插入表项 (c － 1, , , , , )
        超级列表框1.置标题 (q, 0, 读 (1))
        超级列表框1.置标题 (q, 1, 读 (2))
        超级列表框1.置标题 (q, 2, 读 (3))
        超级列表框1.置标题 (q, 3, 读 (4))
        超级列表框1.置标题 (q, 4, 读 (5))
        超级列表框1.置标题 (q, 5, 到文本 (读 (6)))
        超级列表框1.置标题 (q, 6, 读 (7))
        超级列表框1.置标题 (q, 7, 到文本 (读 (8)))
        超级列表框1.置标题 (q, 8, 到文本 (读 (9)))
        超级列表框1.置标题 (q, 9, 到文本 (读 (10)))
        超级列表框1.置标题 (q, 10, 到文本 (读 (11)))
        处理事件 ()
    .如果真结束
    超级列表框1.删除表项 (q)
.计次循环尾 ()

hanyuhang1995

上传下源码吧……

决然

已解决            

峰情无限

决然 发表于 2019-4-15 15:18
已解决

可以看一下源码吗？我也碰到了同样的问题