专业报表打印边框 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

For Each c As Object In doc.body.children
    If typeof c Is prt.RenderText Then
        Dim nms() As String = {"序号:","类型:"}
        For Each nm As String In nms
            If c.text Like nm = False Then
                'If c.Text Like "序号:" = False AndAlso c.Text Like "类型:" = False AndAlso c.Text Like "户名:" = False AndAlso c.Text Like "身份证号" = False AndAlso c.Text Like "联系电话:" = False AndAlso c.Text Like "是否解决:" = False AndAlso c.Text Like "结果日期:" = False AndAlso c.Text Like "责任人:" = False Then
                c.Style.Borders.All = New prt.Linedef(0.5, Color.black)

            End If
        Next
    End If
Next
能否使用数组，用循环语句排除不需要边框的项

主题：专业报表打印边框