横向合计代码 锐浪报表_[原创]锐浪报表动态加入列和最后加入合计列+进度条显示...

[原创]锐浪报表动态加入列和最后加入合计列+进度条显示

[原创]锐浪报表动态加入列和最后加入合计列+进度条显示

有网友向我询问锐浪报表动态生成列的有关代码,反正也是学来的,就开源一下,顺便还有进度条显示的哦!

动态生成的截图[attachment=58733]

代码如下:

.版本 2

.支持库 gregn40

主报表.从文件加载报表 (取运行目录 () ＋ “\Reports\销售统计报表.grf”)

主报表.挂接事件 (报表事件1)

查询显示器1.设置关联报表 (主报表)

主报表.获取明细网格 ().获取数据集 ().忽略数据绑定 ＝ 假

' 查询显示器1.启动 ()

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

进度条1.可视 ＝ 真

查询显示器1.刷新 ()

按钮1.禁止 ＝ 真

.子程序 _打印按钮_被单击

主报表.打印预览 (真)

.子程序 _报表事件1_请求记录数据

.参数 pEof, 逻辑型, 参考

.局部变量 调拨句柄, 整数型, , "0"

.局部变量 M, 整数型

.局部变量 调拨数量, 文本型, , "0"

.局部变量 调拨金额, 文本型

.局部变量 N, 整数型

.局部变量 库存记录, 整数型, , , 从库存表中获取数据数

.局部变量 货号, 文本型

.局部变量 p, 整数型

.局部变量 库存句柄, 整数型

.局部变量 库存数, 整数型

进度条1.位置 ＝ 1

外部数据库1.打开MDB数据库 (取运行目录 () ＋ “\data\xshk.mdb”, , feng, , )

外部数据库2.打开MDB数据库 (取运行目录 () ＋ “\data\xshk.mdb”, , feng, , )

.判断开始 (组合框3.取项目文本 (组合框3.现行选中项) ＝ “全部规格”)

库存记录 ＝ 外部数据库1.查询 (“select 货品编号,规格,货品名称,单位 from 当前库存表 order by 货品编号 asc”)

库存句柄 ＝ 外部数据库2.查询 (“select count (*) from 货品表”)

库存数 ＝ 外部数据库2.读 (库存句柄, 1)

进度条1.最大位置 ＝ 库存数

.默认