'宣言 Public ReadOnly Property Summary As Infragistics.Win.UltraWinGrid.SummaryValue
public Infragistics.Win.UltraWinGrid.SummaryValue Summary {get;}
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
private void SummaryCellExportingEH(object sender, Infragistics.Win.UltraWinGrid.ExcelExport.SummaryCellExportingEventArgs e) { if(e.CurrentColumnIndex%2==0 && e.Summary!=null) e.Summary.Appearance.BackColor = Color.LightCoral; } private void SummaryCellExportedEH(object sender, Infragistics.Win.UltraWinGrid.ExcelExport.SummaryCellExportedEventArgs e) { if(e.CurrentColumnIndex%2==0 && e.Summary!=null) { IWorksheetCellFormat tmCF = e.CurrentWorksheet.Rows[e.CurrentRowIndex].Cells[e.CurrentColumnIndex].CellFormat; tmCF.BottomBorderStyle = tmCF.TopBorderStyle = tmCF.LeftBorderStyle = tmCF.RightBorderStyle = CellBorderLineStyle.Double; } }