Private Sub MyGridExporter_SummaryCellExporting(ByVal sender As Object, ByVal e As Infragistics.Win.UltraWinGrid.ExcelExport.SummaryCellExportingEventArgs) Handles MyGridExporter.SummaryCellExporting
If e.CurrentColumnIndex Mod 2 = 0 And Not e.Summary Is Nothing Then
e.Summary.Appearance.BackColor = Color.LightCoral
End If
End Sub
Private Sub MyGridExporter_SummaryCellExported(ByVal sender As Object, ByVal e As Infragistics.Win.UltraWinGrid.ExcelExport.SummaryCellExportedEventArgs) Handles MyGridExporter.SummaryCellExported
If e.CurrentColumnIndex Mod 2 = 0 And Not e.Summary Is Nothing Then
Dim tmCF As IWorksheetCellFormat = e.CurrentWorksheet.Rows(e.CurrentRowIndex).Cells(e.CurrentColumnIndex).CellFormat
tmCF.BottomBorderStyle = CellBorderLineStyle.Double
tmCF.TopBorderStyle = CellBorderLineStyle.Double
tmCF.LeftBorderStyle = CellBorderLineStyle.Double
tmCF.RightBorderStyle = CellBorderLineStyle.Double
End If
End Sub