易语言需要打印超级列表框里面的内容到锐浪报表要怎么...

zhaoxian

点击打印，需要打印自己制作的锐浪报表，希望获取超级列表框中编号的内容“周六013”这个代码应该怎么写呢？

无痕雨

超级列表框1.取标题（超级列表框1.现行选中项，0） ' 0代表的是你超级列表框对应的参数  现行选中项是你选中的那一行

zhaoxian

无痕雨 发表于 2024-5-26 01:42
超级列表框1.取标题（超级列表框1.现行选中项，0） ' 0代表的是你超级列表框对应的参数  现行选中项是你选 ...

报表哪里的代码怎么写呀？报表.按名称取参数()这样吗？

li110

sphinxes

  

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

变量名	类 型	静态	数组	备 注
局_导出列	整数型		0

局_导出列 ＝ { 1, 3, 5 }
子程序_超级列表框导入锐浪报表 (超级列表框1, 局_导出列, 1)

子程序名	返回值类型	公开	备 注
子程序_超级列表框导入锐浪报表
参数名	类 型	参考	可空	数组	备 注
参_超级列表框	超级列表框
参_导出列	整数型				为空默认导出全部列
参_纸张方向	整数型				0-纵向，1-横向，默认纵向

变量名	类 型	静态	数组	备 注
局_主报表	报表
局_报表头	报表头
局_标题框	静态文字框
局_明细网格	明细网格
局_列	列
局_计次	整数型
局_列计次	整数型

局_主报表.初始化 ()
如果 (是否为空 (参_纸张方向) ＝ 真 或 参_纸张方向 ＝ 0)
局_主报表.置设计时纸张方向 (1)
局_主报表.置设计时纸张方向 (2)

局_报表头 ＝ 局_主报表.插入报表头 ()
局_标题框 ＝ 局_报表头.获取部件框集合 ().增加 ( #部件框类型枚举_静态文字框 ).获取为静态文字框 ()
局_标题框.置高度 (1.5)
局_标题框.置宽度 (5)
局_标题框.获取字体 ().置字号 (18)
局_标题框.获取字体 ().置粗体 (真)
局_标题框.置文本 (“销售明细一览表”)
局_标题框.置居中 ( #居中方式枚举_水平垂直 )
局_明细网格 ＝ 局_主报表.插入明细网格 ()
局_明细网格.置居中显示 (真)
局_明细网格.获取标题行 ().置背景色 (取颜色值 (231, 222, 157))
局_明细网格.获取标题行 ().置高度 (1.2)
局_明细网格.获取内容行 ().置交替背景色 (15200231)
局_明细网格.获取标题行 ().获取字体 ().置字号 (9)
局_明细网格.获取内容行 ().获取字体 ().置字号 (9)
如果 (是否为空 (参_导出列) ＝ 真 或 取数组成员数 (参_导出列) ＝ 0)
计次循环首 (参_超级列表框.取列数 (), 局_计次)
局_明细网格.获取数据集 ().增加字段 (参_超级列表框.取列标题 (局_计次 － 1), 1)
局_列 ＝ 局_明细网格.增加列 (参_超级列表框.取列标题 (局_计次 － 1), 参_超级列表框.取列标题 (局_计次 － 1), 参_超级列表框.取列标题 (局_计次 － 1), 2.4)
局_列.置可见性 (真)
局_列.获取标题格 ().置文字对齐方式 (34)  '
局_列.获取标题格 ().置文字绕行 (真)
局_列.获取内容格 ().置文字对齐方式 (34)  '
局_列.获取内容格 ().置按需缩小字体 (真)
计次循环尾 ()
局_主报表.准备加载数据 ()
计次循环首 (参_超级列表框.取表项数 (), 局_计次)
局_主报表.获取明细网格 ().获取数据集 ().追加 ()
计次循环首 (参_超级列表框.取列数 (), 局_列计次)
局_主报表.获取明细网格 ().获取数据集 ().获取字段集合 ().获取项目 (到变体型_整数型 (局_列计次)).置字符值 (参_超级列表框.取标题 (局_计次 － 1, 局_列计次 － 1))
计次循环尾 ()
局_主报表.获取明细网格 ().获取数据集 ().提交 ()
计次循环尾 ()



计次循环首 (取数组成员数 (参_导出列), 局_计次)
局_明细网格.获取数据集 ().增加字段 (参_超级列表框.取列标题 (参_导出列 [局_计次] － 1), 1)
局_列 ＝ 局_明细网格.增加列 (参_超级列表框.取列标题 (参_导出列 [局_计次] － 1), 参_超级列表框.取列标题 (参_导出列 [局_计次] － 1), 参_超级列表框.取列标题 (参_导出列 [局_计次] － 1), 2.4)
局_列.置可见性 (真)
局_列.获取标题格 ().置文字对齐方式 (34)  '
局_列.获取标题格 ().置文字绕行 (真)
局_列.获取内容格 ().置文字对齐方式 (34)  '
局_列.获取内容格 ().置按需缩小字体 (真)
计次循环尾 ()
局_主报表.准备加载数据 ()
计次循环首 (参_超级列表框.取表项数 (), 局_计次)
局_主报表.获取明细网格 ().获取数据集 ().追加 ()
计次循环首 (取数组成员数 (参_导出列), 局_列计次)
局_主报表.获取明细网格 ().获取数据集 ().获取字段集合 ().获取项目 (到变体型_整数型 (局_列计次)).置字符值 (参_超级列表框.取标题 (局_计次 － 1, 参_导出列 [局_列计次] － 1))
计次循环尾 ()
局_主报表.获取明细网格 ().获取数据集 ().提交 ()
计次循环尾 ()

局_主报表.打印预览 (真)

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

.版本 2<br /> .支持库 iext<br /> <br /> .子程序 _按钮_1_被单击<br /> .局部变量 局_导出列, 整数型, , "0"<br /> <br /> 局_导出列 ＝ { 1, 3, 5 }<br /> <br /> 子程序_超级列表框导入锐浪报表 (超级列表框1, 局_导出列, 1)<br /> <br /> .子程序 子程序_超级列表框导入锐浪报表<br /> .参数 参_超级列表框, 超级列表框<br /> .参数 参_导出列, 整数型, 可空 数组, 为空默认导出全部列<br /> .参数 参_纸张方向, 整数型, 可空, 0-纵向，1-横向，默认纵向<br /> .局部变量 局_主报表, 报表<br /> .局部变量 局_报表头, 报表头<br /> .局部变量 局_标题框, 静态文字框<br /> .局部变量 局_明细网格, 明细网格<br /> .局部变量 局_列, 列<br /> .局部变量 局_计次, 整数型<br /> .局部变量 局_列计次, 整数型<br /> <br /> 局_主报表.初始化 ()<br /> .如果 (是否为空 (参_纸张方向) ＝ 真 或 参_纸张方向 ＝ 0)<br />     局_主报表.置设计时纸张方向 (1)<br /> .否则<br />     局_主报表.置设计时纸张方向 (2)<br /> .如果结束<br /> <br /> 局_报表头 ＝ 局_主报表.插入报表头 ()<br /> 局_标题框 ＝ 局_报表头.获取部件框集合 ().增加 (#部件框类型枚举_静态文字框).获取为静态文字框 ()<br /> 局_标题框.置高度 (1.5)<br /> 局_标题框.置宽度 (5)<br /> 局_标题框.获取字体 ().置字号 (18)<br /> 局_标题框.获取字体 ().置粗体 (真)<br /> 局_标题框.置文本 (“销售明细一览表”)<br /> 局_标题框.置居中 (#居中方式枚举_水平垂直)<br /> <br /> 局_明细网格 ＝ 局_主报表.插入明细网格 ()<br /> 局_明细网格.置居中显示 (真)<br /> 局_明细网格.获取标题行 ().置背景色 (取颜色值 (231, 222, 157))<br /> 局_明细网格.获取标题行 ().置高度 (1.2)<br /> 局_明细网格.获取内容行 ().置交替背景色 (15200231)<br /> 局_明细网格.获取标题行 ().获取字体 ().置字号 (9)<br /> 局_明细网格.获取内容行 ().获取字体 ().置字号 (9)<br /> <br /> .如果 (是否为空 (参_导出列) ＝ 真 或 取数组成员数 (参_导出列) ＝ 0)<br />     .计次循环首 (参_超级列表框.取列数 (), 局_计次)<br />         局_明细网格.获取数据集 ().增加字段 (参_超级列表框.取列标题 (局_计次 － 1), 1)<br />         局_列 ＝ 局_明细网格.增加列 (参_超级列表框.取列标题 (局_计次 － 1), 参_超级列表框.取列标题 (局_计次 － 1), 参_超级列表框.取列标题 (局_计次 － 1), 2.4)<br />         局_列.置可见性 (真)<br />         局_列.获取标题格 ().置文字对齐方式 (34)  ' <br />         局_列.获取标题格 ().置文字绕行 (真)<br />         局_列.获取内容格 ().置文字对齐方式 (34)  ' <br />         局_列.获取内容格 ().置按需缩小字体 (真)<br />     .计次循环尾 ()<br />     局_主报表.准备加载数据 ()<br />     .计次循环首 (参_超级列表框.取表项数 (), 局_计次)<br />         局_主报表.获取明细网格 ().获取数据集 ().追加 ()<br />         .计次循环首 (参_超级列表框.取列数 (), 局_列计次)<br />             局_主报表.获取明细网格 ().获取数据集 ().获取字段集合 ().获取项目 (到变体型_整数型 (局_列计次)).置字符值 (参_超级列表框.取标题 (局_计次 － 1, 局_列计次 － 1))<br />         .计次循环尾 ()<br />         局_主报表.获取明细网格 ().获取数据集 ().提交 ()<br />     .计次循环尾 ()<br /> <br /> .否则<br /> <br />     .计次循环首 (取数组成员数 (参_导出列), 局_计次)<br />         局_明细网格.获取数据集 ().增加字段 (参_超级列表框.取列标题 (参_导出列 [局_计次] － 1), 1)<br />         局_列 ＝ 局_明细网格.增加列 (参_超级列表框.取列标题 (参_导出列 [局_计次] － 1), 参_超级列表框.取列标题 (参_导出列 [局_计次] － 1), 参_超级列表框.取列标题 (参_导出列 [局_计次] － 1), 2.4)<br />         局_列.置可见性 (真)<br />         局_列.获取标题格 ().置文字对齐方式 (34)  ' <br />         局_列.获取标题格 ().置文字绕行 (真)<br />         局_列.获取内容格 ().置文字对齐方式 (34)  ' <br />         局_列.获取内容格 ().置按需缩小字体 (真)<br />     .计次循环尾 ()<br /> <br />     局_主报表.准备加载数据 ()<br />     .计次循环首 (参_超级列表框.取表项数 (), 局_计次)<br />         局_主报表.获取明细网格 ().获取数据集 ().追加 ()<br />         .计次循环首 (取数组成员数 (参_导出列), 局_列计次)<br />             局_主报表.获取明细网格 ().获取数据集 ().获取字段集合 ().获取项目 (到变体型_整数型 (局_列计次)).置字符值 (参_超级列表框.取标题 (局_计次 － 1, 参_导出列 [局_列计次] － 1))<br />         .计次循环尾 ()<br />         局_主报表.获取明细网格 ().获取数据集 ().提交 ()<br />     .计次循环尾 ()<br /> <br /> .如果结束<br /> <br /> 局_主报表.打印预览 (真)

sphinxes

https://bbs.125.la/forum.php?mod=viewthread&tid=14630013

一个模块使用了【模块守护】，请下载并安装易语言助手(http://e.125.la/)后方可正常正常使用

zhaoxian

sphinxes 发表于 2024-5-26 09:15
[e=0].版本 2
.支持库 iext

好复杂啊你这个！~但是还是要给你点赞，谢谢

zhaoxian

我已经把锐浪报表的模块做好了，点击打印按钮，需要把超级列表框2中的“周六013”这个数据传输给锐浪报表的综合文字框中去，一直实现不了

补充内容 (2024-5-26 12:28):
.版本 2
.支持库 gregn6

.子程序 _按钮3_被单击

程序集_锐浪报表.清空 ()
程序集_锐浪报表.从文件加载报表 (取运行目录 () ＋ “\JC1.grf”)
程序集_锐浪报...