rt8 = New prt.RenderTable
rt8.Style.TextAlignVert = prt.AlignVertEnum.Center
rt8.Style.GridLines.All = New prt.LineDef(0.3,Color.blue)
rt8.Style.Spacing.Bottom = 5
rt8.CellStyle.Spacing.All = 1
rt8.Style.Font = New Font("宋体", 10)
'设置表格细节
Rows8 = tbl8.DataTable.Select("企业名称 Like '*" & Forms("mainform").controls("考评企业名称").value & "*' And 年度 Like '*" & Forms("mainform").controls("标准化考评年度").value & "*' and 扣分 > 0 and 考评要素 not like '%小计%'","") '指定符合条件的行和排序方式
Dim nms8() As String = {"年度","考评要素","考评项目","考评内容","标准分值","考评方法","考评描述","扣分","备注"} '指定要显示的列即要打印的列
Dim caps() As String = {"序号","考评要素","考评项目","考评内容","标准分值","考评方法","考评描述","扣分","备注"} '自定义列名