Imports Infragistics.Shared
Imports Infragistics.Win
Imports Infragistics.Win.UltraWinGrid
Private Sub UltraGrid1_InitializeLayout(ByVal sender As Object, ByVal e As Infragistics.Win.UltraWinGrid.InitializeLayoutEventArgs) Handles ultraGrid1.InitializeLayout
' A valid UltraCalcManager instance must be assigned to the the CalcManager
' property of the UltraGrid in order to be able to use formulas. Typically
' you do this by simply putting an UltraCalcManager component on the form. If
' you have already put an UltraCalcManager on the form then you don't need to
' assign the CalcManager proeprty. NOTE: You must add UltraWinCalcManager
' assembly to the list of assembly references.
Dim calcManager As Infragistics.Win.UltraWinCalcManager.UltraCalcManager
calcManager = New Infragistics.Win.UltraWinCalcManager.UltraCalcManager(Me.Container)
e.Layout.Grid.CalcManager = calcManager
' You can set formula on a column.
e.Layout.Bands(0).Columns("Col1").Formula = "10 * [Col2]"
' You can create a formula summary. Following summary calculates the sum of
' Col1 column.
e.Layout.Bands(0).Summaries.Add("Summary1", "sum( [Col1] )")
' FormulaErrorAppearance specifies the appearance of cells and summaries that
' contain formula errors.
e.Layout.Override.FormulaErrorAppearance.BackColor = Color.Red
' FormulaRowIndexSource specifies which rows to use for calculations, all
' rows or just the visible rows. For example, if you have a summary "sum(
' [Column1] )" which sums up the values of Column1, VisibleIndex specifies
' that the values from only the visible rows should be used for calculating
' the sum.
e.Layout.Override.FormulaRowIndexSource = FormulaRowIndexSource.ListIndex
End Sub