主题：专业报表问题

 Dim doc As New PrintDoc '定义一个新报表
Dim rt As New prt.RenderTable '定义一个新表格
Dim tb as Table = Tables("订单")
Dim ColNames As String() = New String(){"产品", "日期", "数量"}
rt.Width = "Auto" '表格宽度为自动，也就是等于各列设置宽度之和
rt.SplitHorzBehavior = prt.SplitBehaviorEnum.SplitIfNeeded '表格宽度超出页宽时，可以水平换页
rt.Style.Font = tb.Font
For c As Integer = 0 To ColNames.Length - 1 '逐列设置和填入内容
    rt.Cells(0,c).Text = ColNames(c) '列名作为标题
    rt.Cells(0,c).Style.TextAlignHorz = prt.AlignHorzEnum.Center '标题内容水平居中
    rt.Cols(c).Width = tb.Cols(ColNames(c)).PrintWidth '列宽等于实际列宽
    If tb.Cols(ColNames(c)).IsNumeric Orelse tb.Cols(ColNames(c)).IsDate Then '如果是数值或日期列
        rt.Cols(c).Style.TextAlignHorz = prt.AlignHorzEnum.Right '数据水平靠右
    End If
    For r As integer = 0 To tb.Rows.Count -1 '开始填入该列内容
        rt.Cells(r + 1, c).Text = tb.Rows(r)(ColNames(c))
    Next
Next
rt.Style.Gridlines.All = New prt.Linedef(Color.Gray) '灰色网格线
rt.CellStyle.Spacing.All = 0.5 '单元格内距设为0.5毫米
rt.Rows(0).Style.TextAlignHorz = prt.AlignHorzEnum.Center '第一行内容水平居中
rt.RowGroups(0,1).Header = prt.TableHeaderEnum.All '利用行组，将第一行设为表头。
doc.Body.Children.Add(rt）
这段代码 如果加入筛选条件改如何设置啊 例如 我想打印日期列维2012年12月3日的订单 但是日期列不用打出来 只是筛选出来就可以

 不对啊 这段代码 加上去之后显示BOOLEN型的无法转换为TABLE

 这么更改之后 后面的代码不执行了 就是筛选出来后 专业报表不出来了啊

 木华大哥 如何 在产品的前边增加个序号列呢 让他 可以讲打印出来的产品计数  例如 打印了100个产品 那么就是从1到100 这次有了 如何增加个排序呢 就是从1拍到100

 木华大哥 这个如何进行分栏打印啊  就这几列 一张纸可以打印两组啊