- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 再次请教专业报表数据填充问题... (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=1871)
-- 发布时间：2009/2/19 21:55:00
-- 再次请教专业报表数据填充问题...
已用专业报表代码生成固定格式表格6行6列
有数据表如下,其中项目种类不确定,但不超过13个.
| 项目 | 金额 |
| A | 50 |
| B | 100 |
| C | 150 |
| .... | ..... |
如何让数据根据上述固定的表格进行动态填充?
假设项目有ABCDEFGH填充效果如下:
| 项目 | 金额 | 项目 | 金额 | 项目 | 金额 |
| A | 50 | F | 350 | ||
| B | 150 | G | 400 | ||
| C | 200 | H | 450 | ||
| D | 250 | ..... | ...... | ||
| E | 300 |
或者换个说法..For....Each 该如何编写?
[此贴子已经被作者于2009-2-19 22:01:57编辑过]
-- 发布时间：2009/2/19 22:05:00
--
随便写的，请自行调试：
For r As Integer = 0 To CurrentTable.Rows.Count - 1
Dim rw As Row= CurrentTable.Rows(r)
Dim x As Integer = (r Mod 6) + 1
Dim y As Integer = (r \\ 6) * 2 \'注意用整除符号\\，不能是普通除符号/
报表单元格(x,y) = rw("项目")
报表单元格(x,y+1) = rw("金额")
Next
[此贴子已经被作者于2009-2-19 22:06:18编辑过]
-- 发布时间：2009/2/19 22:09:00
--
速度真快,老爹
今晚有更新吗?那个自动新增行问题应该解决了吧.
-- 发布时间：2009/2/19 22:15:00
--
呵呵，下次更新，不会有问题的了。