超级列表框取勾选状态的行，逐行插入高级列表里。

ztinsn

  

变量名	类 型	静态	数组	备 注
今日数据	文本型
局_超级列表	整数型

今日数据 ＝ “TC” ＋ 到文本 (取年份 (取现行时间 ())) ＋ 月 ＋ 日
计次循环首 (取记录数 (), i)
如果真 (读 (“单号”) = 今日数据)
局_超级列表 ＝ 超级列表框2.插入表项 (, , , , , )
超级列表框2.置标题 (局_超级列表, 0, 到文本 (读 (“ID”)))
超级列表框2.置标题 (局_超级列表, 1, 读 (“单号”))
超级列表框2.置标题 (局_超级列表, 2, 读 (“姓名”))
超级列表框2.置标题 (局_超级列表, 3, 读 (“果型”))
超级列表框2.置标题 (局_超级列表, 4, 读 (“毛重”))
超级列表框2.置标题 (局_超级列表, 5, 读 (“皮重”))
超级列表框2.置标题 (局_超级列表, 6, 读 (“框数”))
超级列表框2.置标题 (局_超级列表, 7, 读 (“托重”))
超级列表框2.置标题 (局_超级列表, 8, 读 (“净重”))
超级列表框2.置标题 (局_超级列表, 9, 读 (“押金”))
超级列表框2.置标题 (局_超级列表, 10, 读 (“单价”))
超级列表框2.置标题 (局_超级列表, 11, 读 (“果品小计”))
超级列表框2.置标题 (局_超级列表, 12, 读 (“小计”))
超级列表框2.置标题 (局_超级列表, 13, 读 (“备注”))
跳过 ()
计次循环尾 ()

.局部变量 今日数据, 文本型<br /> .局部变量 局_超级列表, 整数型<br /> <br /> 今日数据 ＝ “TC” ＋ 到文本 (取年份 (取现行时间 ())) ＋ 月 ＋ 日<br /> <br /> .计次循环首 (取记录数 (), i)<br />     .如果真 (读 (“单号”) = 今日数据)<br />         局_超级列表 ＝ 超级列表框2.插入表项 (, , , , , )<br />         超级列表框2.置标题 (局_超级列表, 0, 到文本 (读 (“ID”)))<br />         超级列表框2.置标题 (局_超级列表, 1, 读 (“单号”))<br />         超级列表框2.置标题 (局_超级列表, 2, 读 (“姓名”))<br />         超级列表框2.置标题 (局_超级列表, 3, 读 (“果型”))<br />         超级列表框2.置标题 (局_超级列表, 4, 读 (“毛重”))<br />         超级列表框2.置标题 (局_超级列表, 5, 读 (“皮重”))<br />         超级列表框2.置标题 (局_超级列表, 6, 读 (“框数”))<br />         超级列表框2.置标题 (局_超级列表, 7, 读 (“托重”))<br />         超级列表框2.置标题 (局_超级列表, 8, 读 (“净重”))<br />         超级列表框2.置标题 (局_超级列表, 9, 读 (“押金”))<br />         超级列表框2.置标题 (局_超级列表, 10, 读 (“单价”))<br />         超级列表框2.置标题 (局_超级列表, 11, 读 (“果品小计”))<br />         超级列表框2.置标题 (局_超级列表, 12, 读 (“小计”))<br />         超级列表框2.置标题 (局_超级列表, 13, 读 (“备注”))<br />     .如果真结束<br />     跳过 ()<br /> .计次循环尾 ()

以上读取edb数据的数据，超级列表框2设置有检查框。随机勾选几项，如何逐行插入到一个新窗口的高级表格里。

zainex

  

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

变量名	类 型	静态	数组	备 注
数	整数型
路径	文本型
今日数据	文本型
局_超级列表	整数型
月	文本型
日	文本型

路径 ＝ 取运行目录 () ＋ “\数据库.edb”
打开 (路径, , , , , , )
到首记录 ()
超级列表框2.全部删除 ()
月 ＝ “03”
日 ＝ “25”
今日数据 ＝ “TC” ＋ 到文本 (取年份 (取现行时间 ())) ＋ 月 ＋ 日
计次循环首 (取记录数 (), 数)
如果真 (读 (“单号”) ＝ 今日数据)
局_超级列表 ＝ 超级列表框2.插入表项 (, , , , , )
超级列表框2.置标题 (局_超级列表, 0, 到文本 (读 (“ID”)))
超级列表框2.置标题 (局_超级列表, 1, 读 (“单号”))
超级列表框2.置标题 (局_超级列表, 2, 读 (“姓名”))
超级列表框2.置标题 (局_超级列表, 3, 读 (“果型”))
超级列表框2.置标题 (局_超级列表, 4, 读 (“毛重”))
超级列表框2.置标题 (局_超级列表, 5, 读 (“皮重”))
超级列表框2.置标题 (局_超级列表, 6, 读 (“框数”))
超级列表框2.置标题 (局_超级列表, 7, 读 (“托重”))
超级列表框2.置标题 (局_超级列表, 8, 读 (“净重”))
超级列表框2.置标题 (局_超级列表, 9, 读 (“押金”))
超级列表框2.置标题 (局_超级列表, 10, 读 (“单价”))
超级列表框2.置标题 (局_超级列表, 11, 读 (“果品小计”))
超级列表框2.置标题 (局_超级列表, 12, 读 (“小计”))
超级列表框2.置标题 (局_超级列表, 13, 读 (“备注”))
跳过 ()
计次循环尾 ()
关闭 (路径)

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

载入 (窗口1, , 真)

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

.版本 2<br /> .支持库 iext<br /> <br /> .子程序 _按钮1_被单击<br /> .局部变量 数, 整数型<br /> .局部变量 路径, 文本型<br /> .局部变量 今日数据, 文本型<br /> .局部变量 局_超级列表, 整数型<br /> .局部变量 月, 文本型<br /> .局部变量 日, 文本型<br /> <br /> 路径 ＝ 取运行目录 () ＋ “\数据库.edb”<br /> 打开 (路径, , , , , , )<br /> 到首记录 ()<br /> 超级列表框2.全部删除 ()<br /> 月 ＝ “03”<br /> 日 ＝ “25”<br /> 今日数据 ＝ “TC” ＋ 到文本 (取年份 (取现行时间 ())) ＋ 月 ＋ 日<br /> .计次循环首 (取记录数 (), 数)<br />     .如果真 (读 (“单号”) ＝ 今日数据)<br />         局_超级列表 ＝ 超级列表框2.插入表项 (, , , , , )<br />         超级列表框2.置标题 (局_超级列表, 0, 到文本 (读 (“ID”)))<br />         超级列表框2.置标题 (局_超级列表, 1, 读 (“单号”))<br />         超级列表框2.置标题 (局_超级列表, 2, 读 (“姓名”))<br />         超级列表框2.置标题 (局_超级列表, 3, 读 (“果型”))<br />         超级列表框2.置标题 (局_超级列表, 4, 读 (“毛重”))<br />         超级列表框2.置标题 (局_超级列表, 5, 读 (“皮重”))<br />         超级列表框2.置标题 (局_超级列表, 6, 读 (“框数”))<br />         超级列表框2.置标题 (局_超级列表, 7, 读 (“托重”))<br />         超级列表框2.置标题 (局_超级列表, 8, 读 (“净重”))<br />         超级列表框2.置标题 (局_超级列表, 9, 读 (“押金”))<br />         超级列表框2.置标题 (局_超级列表, 10, 读 (“单价”))<br />         超级列表框2.置标题 (局_超级列表, 11, 读 (“果品小计”))<br />         超级列表框2.置标题 (局_超级列表, 12, 读 (“小计”))<br />         超级列表框2.置标题 (局_超级列表, 13, 读 (“备注”))<br />     .如果真结束<br />     跳过 ()<br /> .计次循环尾 ()<br /> 关闭 (路径)<br /> <br /> <br /> .子程序 _按钮2_被单击<br /> <br /> 载入 (窗口1, , 真)

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_窗口1

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

变量名	类 型	静态	数组	备 注
超级列表框	超级列表框
数	整数型
值	整数型

高级表格1.行数 ＝ 0
高级表格1.行高 ＝ 32
超级列表框 ＝ _启动窗口.超级列表框2
计次循环首 (超级列表框.取表项数 (), 数)
如果真 (超级列表框.取当前状态图片 (数 － 1) ＝ 1)
高级表格1.行数 ＝ 高级表格1.行数 ＋ 1
计次循环首 (超级列表框.取列数 (), 值)
高级表格1.置数据 (高级表格1.行数 － 1, 值 － 1, #表格常量 .文本型, 超级列表框.取标题 (数 － 1, 值 － 1))
计次循环尾 ()

计次循环尾 ()

i支持库列表	支持库注释
iext	扩展界面支持库一
eGrid	高级表格支持库

.版本 2<br /> .支持库 iext<br /> .支持库 eGrid<br /> <br /> .程序集 窗口程序集_窗口1<br /> <br /> .子程序 _窗口1_创建完毕<br /> .局部变量 超级列表框, 超级列表框<br /> .局部变量 数, 整数型<br /> .局部变量 值, 整数型<br /> <br /> 高级表格1.行数 ＝ 0<br /> 高级表格1.行高 ＝ 32<br /> 超级列表框 ＝ _启动窗口.超级列表框2<br /> .计次循环首 (超级列表框.取表项数 (), 数)<br />     .如果真 (超级列表框.取当前状态图片 (数 － 1) ＝ 1)<br />         高级表格1.行数 ＝ 高级表格1.行数 ＋ 1<br />         .计次循环首 (超级列表框.取列数 (), 值)<br />             高级表格1.置数据 (高级表格1.行数 － 1, 值 － 1, #表格常量.文本型, 超级列表框.取标题 (数 － 1, 值 － 1))<br />         .计次循环尾 ()<br />     .如果真结束<br /> <br /> .计次循环尾 ()

效果：

例子.zip (3.62 KB, 下载次数: 5)

2026-3-25 21:32 上传

点击文件名下载附件

云少i

加 V：ly992489316