[求助] 修改报表字体 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Select Case e.Book.TempLate
    Case "信息表"
        Dim Sheet As XLS.Sheet = e.Book.Sheets(0)
        For i As Integer = 2 To sheet.Rows.Count - 1
            If sheet(i, 3).text ="√" Then
                For j As Integer = 0 To 3
                    Dim Style As Xls.Style = e.Book.NewStyle
                    style.ForeColor = Color.Red
                    style.Font = new Font("宋体", 10)
                    style.AlignHorz = sheet(i,j).Style.AlignHorz
                    style.BorderBottom = sheet(i,j).Style.BorderBottom
                    style.BorderColorBottom = sheet(i,j).style.BorderColorBottom
                    style.BorderColorRight = sheet(i,j).Style.BorderColorRight
                    style.BorderRight = sheet(i,j).Style.BorderRight
                    style.BorderColorleft = sheet(i,j).Style.BorderColorleft
                    style.Borderleft = sheet(i,j).Style.Borderleft
                    sheet(i,j).Style = style
                Next
            End If

        Next
End Select

主题：[求助] 修改报表字体