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

随便写的，请自行调试：

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

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