这样试一试：
..........
if ....... '在这里判断datarow被10整除。
rt.BreakAfter = prt.BreakEnum.Page '打印之后强制换页
end if
doc.Body.Children.Add(rt) '将文本对象加入到报表
doc.Preview() '预览
加好友 
发短信
Post By：2011/3/1 0:11:00 [显示全部帖子]
