主题：再次请教专业报表数据填充问题...

已用专业报表代码生成固定格式表格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 该如何编写?

随便写的，请自行调试：

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

速度真快,老爹

今晚有更新吗?那个自动新增行问题应该解决了吧.

呵呵，下次更新，不会有问题的了。