时间范围

f15007937680

请问大哥们  取出超级列表框1里面 2024-10-01 到 2024-11-15 这时间段的内容插入到超级列表框_月份筛选 最好是越快越好
上面有代码希望大神们能帮忙看看

LEOONL

新建文本文档.e (1.07 MB, 下载次数: 7)

2024-10-13 11:10 上传

点击文件名下载附件

走一回

  

子程序名	返回值类型	公开	备 注
__启动窗口_创建完毕

变量名	类 型	静态	数组	备 注
i	整数型
日期	整数型		0
temp	文本型
sy	整数型

计次循环首 (50, )
i ＝ 超级列表框1.插入表项 (, , , , , )
超级列表框1.置标题 (i, 0, 到文本 (i ＋ 1))
temp ＝ “2024-” ＋ 取文本右边 (“0” ＋ 到文本 (取随机数 (10, 12)), 2) ＋ “-” ＋ 取文本右边 (“0” ＋ 到文本 (取随机数 (1, 30)), 2)
超级列表框1.置标题 (i, 1, temp)
加入成员 (日期, 到整数 (子文本替换 (temp, “-”, , , , 真)))
计次循环尾 ()
超级列表框_月份筛选.全部删除 ()
计次循环首 (取数组成员数 (日期), i)
如果真 (日期 [i] ≥ 20241001 且 日期 [i] ≤ 20241115)
sy ＝ 超级列表框_月份筛选.插入表项 (, , , , , )
超级列表框_月份筛选.置标题 (sy, 0, 到文本 (sy ＋ 1))
超级列表框_月份筛选.置标题 (sy, 1, 取文本左边 (到文本 (日期 [i]), 4) ＋ “-” ＋ 取文本中间 (到文本 (日期 [i]), 6, 2) ＋ “-” ＋ 取文本右边 (到文本 (日期 [i]), 2))

计次循环尾 ()

i支持库列表	支持库注释
iext	扩展界面支持库一

.版本 2<br /> .支持库 iext<br /> <br /> .子程序 __启动窗口_创建完毕<br /> .局部变量 i, 整数型<br /> .局部变量 日期, 整数型, , "0"<br /> .局部变量 temp, 文本型<br /> .局部变量 sy, 整数型<br /> <br /> .计次循环首 (50, )<br />     i ＝ 超级列表框1.插入表项 (, , , , , )<br />     超级列表框1.置标题 (i, 0, 到文本 (i ＋ 1))<br />     temp ＝ “2024-” ＋ 取文本右边 (“0” ＋ 到文本 (取随机数 (10, 12)), 2) ＋ “-” ＋ 取文本右边 (“0” ＋ 到文本 (取随机数 (1, 30)), 2)<br />     超级列表框1.置标题 (i, 1, temp)<br />     加入成员 (日期, 到整数 (子文本替换 (temp, “-”, , , , 真)))<br /> .计次循环尾 ()<br /> 超级列表框_月份筛选.全部删除 ()<br /> .计次循环首 (取数组成员数 (日期), i)<br />     .如果真 (日期 <i> ≥ 20241001 且 日期 <i> ≤ 20241115)<br />         sy ＝ 超级列表框_月份筛选.插入表项 (, , , , , )<br />         超级列表框_月份筛选.置标题 (sy, 0, 到文本 (sy ＋ 1))<br />         超级列表框_月份筛选.置标题 (sy, 1, 取文本左边 (到文本 (日期 <i>), 4) ＋ “-” ＋ 取文本中间 (到文本 (日期 <i>), 6, 2) ＋ “-” ＋ 取文本右边 (到文本 (日期 <i>), 2))<br />     .如果真结束<br /> <br /> .计次循环尾 ()

真冬

  

子程序名	返回值类型	公开	备 注
_按钮1_被单击

日期框1.今天 ＝ 到时间 (“2024-10-01”)
日期框2.今天 ＝ 到时间 (“2024-11-15”)
子程序1_按日期转移列表 (日期框1.今天, 日期框2.今天, 超级列表框1, 1, 超级列表框_月份筛选)

子程序名	返回值类型	公开	备 注
子程序1_按日期转移列表
参数名	类 型	参考	可空	数组	备 注
参数_开始日期	日期时间型
参数_结束日期	日期时间型
参数_来源列表	超级列表框
参数_日期列号	整数型
参数_目标列表	超级列表框

变量名	类 型	静态	数组	备 注
项目索引	整数型
列索引	整数型
临时日期	日期时间型
临时表项索引	整数型

变量循环首 (0, 参数_来源列表.取表项数 () － 1, 1, 项目索引)
临时日期 ＝ 到时间 (参数_来源列表.取标题 (项目索引, 参数_日期列号))
如果真 (临时日期 ≥ 参数_开始日期 且 临时日期 ≤ 参数_结束日期)
临时表项索引 ＝ 参数_目标列表.插入表项 (, , , , , )
变量循环首 (0, 参数_来源列表.取列数 () － 1, 1, 列索引)
参数_目标列表.置标题 (临时表项索引, 列索引, 参数_来源列表.取标题 (项目索引, 列索引))
变量循环尾 ()

变量循环尾 ()

i支持库列表	支持库注释
iext	扩展界面支持库一

.版本 2<br /> .支持库 iext<br /> <br /> .子程序 _按钮1_被单击<br /> <br /> 日期框1.今天 ＝ 到时间 (“2024-10-01”)<br /> 日期框2.今天 ＝ 到时间 (“2024-11-15”)<br /> 子程序1_按日期转移列表 (日期框1.今天, 日期框2.今天, 超级列表框1, 1, 超级列表框_月份筛选)<br /> <br /> .子程序 子程序1_按日期转移列表<br /> .参数 参数_开始日期, 日期时间型<br /> .参数 参数_结束日期, 日期时间型<br /> .参数 参数_来源列表, 超级列表框<br /> .参数 参数_日期列号, 整数型<br /> .参数 参数_目标列表, 超级列表框<br /> .局部变量 项目索引, 整数型<br /> .局部变量 列索引, 整数型<br /> .局部变量 临时日期, 日期时间型<br /> .局部变量 临时表项索引, 整数型<br /> <br /> .变量循环首 (0, 参数_来源列表.取表项数 () － 1, 1, 项目索引)<br />     临时日期 ＝ 到时间 (参数_来源列表.取标题 (项目索引, 参数_日期列号))<br />     .如果真 (临时日期 ≥ 参数_开始日期 且 临时日期 ≤ 参数_结束日期)<br />         临时表项索引 ＝ 参数_目标列表.插入表项 (, , , , , )<br />         .变量循环首 (0, 参数_来源列表.取列数 () － 1, 1, 列索引)<br />             参数_目标列表.置标题 (临时表项索引, 列索引, 参数_来源列表.取标题 (项目索引, 列索引))<br />         .变量循环尾 ()<br />     .如果真结束<br /> <br /> .变量循环尾 ()

补充内容 (2024-10-14 03:20):
超级列表框_月份筛选.全部删除 ()' 执行之前清空一下