主题：if条件语句问题

Dim doc As New PrintDoc '定义一个报表
Dim rt As New prt.RenderTable() '定义一个表格对象
doc.Body.Children.Add(rt) '将表格对象加入到报表中
rt.Style.GridLines.All = New prt.Linedef '设置网格线
rt.Rows.Count = 7 '设置总行数
rt.Cols.Count = 5 '设置总列数
rt.Height = 120 '设置表格的高度为120毫米
rt.Rows(6).Height = 50 '第7行的高度为50毫米
rt.Cells(0,4).SpanRows = 6 '第1行第5个单元格向下合并6行
rt.Cells(4,1).SpanCols = 3 '第5行第2个单元格向右合并3列
rt.Cells(6,0).SpanCols = 5 '第7行第1个单元格向右合并5列
Doc.Preview() '预览报表

回复21楼，代码没问题，你关闭预览，就行了啊