项目事件
本人在报表事件中写了针对"保护"列为”√“的处理代码，符合条件，字体为红色。
现需要把符合条件的整行字体设置为”10“，请问如何修改。
AfterBuild
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.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
sheet(i,j).Style = style
Next
End If
Next
End Select
加好友 
发短信
Post By：2017/5/12 11:29:00 [只看该作者]
