This is a migrated thread and some comments may be shown as answers.

Template summary Questions

4 Answers 118 Views

GridView

This is a migrated thread and some comments may be shown as answers.

4 Answers, 1 is accepted

answered on 16 Oct 2013, 01:45 PM

Hello Mohammad,

Thank you for contacting us.

The implementation in this case very much depends on what is your data source. If your data source is a business object every object can have a property which calculates the net value of its children. By implementing the INotifyPropertChanged your main object can listen for property changes and recalculate that property.

If this is not suitable for you, I would recommend you send me a sample project which will help me provide you with more adequate support.

Let me know If I can be of further assistance.

Regards,
George
Telerik

TRY TELERIK'S NEWEST PRODUCT - EQATEC APPLICATION ANALYTICS for WINFORMS.
Learn what features your users use (or don't use) in your application. Know your audience. Target it better. Develop wisely.
Sign up for Free application insights >>

answered on 19 Oct 2013, 03:05 PM

Hello George

I Can't upload my project , so let's try another thing
Project steps :
1- Make new windows form project using visual studio 2012.
2- put new Radgridview on form and change the name to : GVTransactions.
3- Add this code instead of form designer code starting with private sub InitializeComponent:

Private Sub InitializeComponent() 

Dim GridViewTextBoxColumn1 As Telerik.WinControls.UI.GridViewTextBoxColumn = New Telerik.WinControls.UI.GridViewTextBoxColumn() 

Dim GridViewTextBoxColumn2 As Telerik.WinControls.UI.GridViewTextBoxColumn = New Telerik.WinControls.UI.GridViewTextBoxColumn() 

Dim GridViewDecimalColumn1 As Telerik.WinControls.UI.GridViewDecimalColumn = New Telerik.WinControls.UI.GridViewDecimalColumn() 

Dim GridViewDecimalColumn2 As Telerik.WinControls.UI.GridViewDecimalColumn = New Telerik.WinControls.UI.GridViewDecimalColumn() 

Dim GridViewTextBoxColumn3 As Telerik.WinControls.UI.GridViewTextBoxColumn = New Telerik.WinControls.UI.GridViewTextBoxColumn() 

Dim GridViewTextBoxColumn4 As Telerik.WinControls.UI.GridViewTextBoxColumn = New Telerik.WinControls.UI.GridViewTextBoxColumn() 

Dim GridViewTextBoxColumn5 As Telerik.WinControls.UI.GridViewTextBoxColumn = New Telerik.WinControls.UI.GridViewTextBoxColumn() 

Dim GridViewTextBoxColumn6 As Telerik.WinControls.UI.GridViewTextBoxColumn = New Telerik.WinControls.UI.GridViewTextBoxColumn() 

Dim GridViewCommandColumn1 As Telerik.WinControls.UI.GridViewCommandColumn = New Telerik.WinControls.UI.GridViewCommandColumn() 

Me.GVTransactions = New Telerik.WinControls.UI.RadGridView() 

Me.TableLayoutPanel1 = New System.Windows.Forms.TableLayoutPanel() 

Me.Panel1 = New System.Windows.Forms.Panel() 

Me.Button1 = New System.Windows.Forms.Button() 

CType(Me.GVTransactions, System.ComponentModel.ISupportInitialize).BeginInit() 

CType(Me.GVTransactions.MasterTemplate, System.ComponentModel.ISupportInitialize).BeginInit() 

Me.TableLayoutPanel1.SuspendLayout() 

Me.Panel1.SuspendLayout() 

Me.SuspendLayout() 

' 

'GVTransactions 

' 

Me.GVTransactions.Dock = System.Windows.Forms.DockStyle.Fill 

Me.GVTransactions.Location = New System.Drawing.Point(3, 3) 

' 

'GVTransactions 

' 

Me.GVTransactions.MasterTemplate.AllowAddNewRow = False 

Me.GVTransactions.MasterTemplate.AutoSizeColumnsMode = Telerik.WinControls.UI.GridViewAutoSizeColumnsMode.Fill 

GridViewTextBoxColumn1.HeaderText = "Item_code" 

GridViewTextBoxColumn1.Name = "Item_code" 

GridViewTextBoxColumn1.ReadOnly = True 

GridViewTextBoxColumn1.Width = 85 

GridViewTextBoxColumn2.HeaderText = "Item name" 

GridViewTextBoxColumn2.Name = "Item_name" 

GridViewTextBoxColumn2.ReadOnly = True 

GridViewTextBoxColumn2.Width = 88 

GridViewDecimalColumn1.HeaderText = "Item Quantity" 

GridViewDecimalColumn1.Minimum = New Decimal(New Integer() {0, 0, 0, 0}) 

GridViewDecimalColumn1.Name = "Item_qty" 

GridViewDecimalColumn1.Width = 109 

GridViewDecimalColumn2.HeaderText = "Item price" 

GridViewDecimalColumn2.Minimum = New Decimal(New Integer() {0, 0, 0, 0}) 

GridViewDecimalColumn2.Name = "Item_Price" 

GridViewDecimalColumn2.Width = 82 

GridViewTextBoxColumn3.HeaderText = "Total" 

GridViewTextBoxColumn3.Name = "Total" 

GridViewTextBoxColumn3.ReadOnly = True 

GridViewTextBoxColumn3.Width = 47 

GridViewTextBoxColumn4.HeaderText = "Effects Net" 

GridViewTextBoxColumn4.Name = "Effects_net" 

GridViewTextBoxColumn4.ReadOnly = True 

GridViewTextBoxColumn4.Width = 88 

GridViewTextBoxColumn5.HeaderText = "Net After Effects" 

GridViewTextBoxColumn5.Name = "Net_After_Effects" 

GridViewTextBoxColumn5.ReadOnly = True 

GridViewTextBoxColumn5.Width = 127 

GridViewTextBoxColumn6.HeaderText = "Transaction_id" 

GridViewTextBoxColumn6.IsVisible = False 

GridViewTextBoxColumn6.Name = "Transaction_id" 

GridViewTextBoxColumn6.Width = 46 

GridViewCommandColumn1.HeaderText = "Add Effect" 

GridViewCommandColumn1.Name = "AddEffect" 

GridViewCommandColumn1.Width = 171 

Me.GVTransactions.MasterTemplate.Columns.AddRange(New

Telerik.WinControls.UI.GridViewDataColumn() {GridViewTextBoxColumn1, GridViewTextBoxColumn2, GridViewDecimalColumn1, GridViewDecimalColumn2, GridViewTextBoxColumn3, GridViewTextBoxColumn4, GridViewTextBoxColumn5, GridViewTextBoxColumn6, GridViewCommandColumn1})<br>

Me.GVTransactions.MasterTemplate.EnableGrouping = False 

Me.GVTransactions.Name = "GVTransactions" 

Me.GVTransactions.Size = New System.Drawing.Size(811, 498) 

Me.GVTransactions.TabIndex = 0 

Me.GVTransactions.Text = "RadGridView1" 

' 

'TableLayoutPanel1 

' 

Me.TableLayoutPanel1.ColumnCount = 1 

Me.TableLayoutPanel1.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 100.0!)) 

Me.TableLayoutPanel1.Controls.Add(Me.GVTransactions, 0, 0) 

Me.TableLayoutPanel1.Controls.Add(Me.Panel1, 0, 1) 

Me.TableLayoutPanel1.Dock = System.Windows.Forms.DockStyle.Fill 

Me.TableLayoutPanel1.Location = New System.Drawing.Point(0, 0) 

Me.TableLayoutPanel1.Name = "TableLayoutPanel1" 

Me.TableLayoutPanel1.RowCount = 2 

Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 90.0!)) 

Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 10.0!)) 

Me.TableLayoutPanel1.Size = New System.Drawing.Size(817, 561) 

Me.TableLayoutPanel1.TabIndex = 1 

' 

'Panel1 

' 

Me.Panel1.Controls.Add(Me.Button1) 

Me.Panel1.Dock = System.Windows.Forms.DockStyle.Fill 

Me.Panel1.Location = New System.Drawing.Point(3, 507) 

Me.Panel1.Name = "Panel1" 

Me.Panel1.Size = New System.Drawing.Size(811, 51) 

Me.Panel1.TabIndex = 1 

' 

'Button1 

' 

Me.Button1.Location = New System.Drawing.Point(9, 3) 

Me.Button1.Name = "Button1" 

Me.Button1.Size = New System.Drawing.Size(114, 23) 

Me.Button1.TabIndex = 0 

Me.Button1.Text = "Add Item" 

Me.Button1.UseVisualStyleBackColor = True 

' 

'Form1 

' 

Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) 

Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font 

Me.ClientSize = New System.Drawing.Size(817, 561) 

Me.Controls.Add(Me.TableLayoutPanel1) 

Me.Name = "Form1" 

Me.Text = "Form1" 

CType(Me.GVTransactions.MasterTemplate, System.ComponentModel.ISupportInitialize).EndInit() 

CType(Me.GVTransactions, System.ComponentModel.ISupportInitialize).EndInit() 

Me.TableLayoutPanel1.ResumeLayout(False) 

Me.Panel1.ResumeLayout(False) 

Me.ResumeLayout(False) 

 

End Sub 

Friend WithEvents GVTransactions As Telerik.WinControls.UI.RadGridView 

Friend WithEvents TableLayoutPanel1 As System.Windows.Forms.TableLayoutPanel 

Friend WithEvents Panel1 As System.Windows.Forms.Panel 

Friend WithEvents Button1 As System.Windows.Forms.Button 

4- add this code to your form to make grid works:

 

Imports Telerik.WinControls.UI 

 

Public Class Form1 

Dim WithEvents TmpEff As GridViewTemplate 

'---------------------------------------------------------------------- 

Dim WithEvents EffLstCol As GridViewTextBoxColumn 

Dim Effrelation As GridViewRelation 

Dim EffTemplloaded As Boolean = False 

Dim WithEvents colEffInPer As GridViewDecimalColumn 

Dim EffValue As GridViewDecimalColumn 

Dim SmmInfo As GridViewSummaryRowInfo 

Private EffSummary As Object 

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load 

 

End Sub 

Sub AddTransactionRow() 

 

'actually rows aadded using datatable , any way user can edit both Item_qty & Item_Price 

GVTransactions.RowCount = GVTransactions.RowCount + 1 

GVTransactions.Rows(GVTransactions.RowCount - 1).Cells("Transaction_id").Value = GVTransactions.RowCount 

GVTransactions.Rows(GVTransactions.RowCount - 1).Cells("Item_code").Value = 11511 & GVTransactions.RowCount 

GVTransactions.Rows(GVTransactions.RowCount - 1).Cells("Item_name").Value = "product" & GVTransactions.RowCount 

 

GVTransactions.Rows(GVTransactions.RowCount - 1).Cells("Item_qty").Value = 500 

GVTransactions.Rows(GVTransactions.RowCount - 1).Cells("Item_Price").Value = 10 

GVTransactions.Rows(GVTransactions.RowCount - 1).Cells("total").Value = GVTransactions.Rows(GVTransactions.RowCount - 1).Cells("Item_qty").Value _ 

* GVTransactions.Rows(GVTransactions.RowCount - 1).Cells("Item_Price").Value 

 

End Sub 

 

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click 

AddTransactionRow() 

SummaryRows() 

 

End Sub 

Sub SummaryRows() 

 

Dim summaryRowItem As New GridViewSummaryRowItem() 

 

Dim summaryItemTotal As New GridViewSummaryItem() 

summaryItemTotal.Name = "Total" 

summaryItemTotal.Aggregate = GridAggregateFunction.Sum 

summaryRowItem.Add(summaryItemTotal) 

 

Dim summaryItemeffectsTotal As New GridViewSummaryItem() 

summaryItemeffectsTotal.Name = "Effects_net" 

summaryItemeffectsTotal.Aggregate = GridAggregateFunction.Sum 

summaryRowItem.Add(summaryItemeffectsTotal) 

 

Dim summaryItemnet As New GridViewSummaryItem() 

summaryItemnet.Name = "Net_After_Effects" 

summaryItemnet.Aggregate = GridAggregateFunction.Sum 

summaryRowItem.Add(summaryItemnet) 

GVTransactions.SummaryRowsBottom.Clear() 

 

GVTransactions.SummaryRowsBottom.Add(summaryRowItem) 

 

GVTransactions.SummaryRowsBottom(0)(0).FormatString = "{0:f2}" 

GVTransactions.SummaryRowsBottom(0)(1).FormatString = "{0:f2}" 

GVTransactions.SummaryRowsBottom(0)(2).FormatString = "{0:f2}" 

 

End Sub 

 

Private Sub GVTransactions_Click(sender As Object, e As EventArgs) Handles GVTransactions.Click 

 

End Sub 

 

Private Sub GVTransactions_CommandCellClick(sender As Object, e As EventArgs) Handles GVTransactions.CommandCellClick 

 

If EffTemplloaded = False Then 

colEffInPer = New GridViewDecimalColumn 

EffValue = New GridViewDecimalColumn 

EffLstCol = New GridViewTextBoxColumn 

 

TmpEff = New GridViewTemplate 

 

EffLstCol.Name = "Eff_name" 

 

EffLstCol.Width = 400 

EffLstCol.HeaderText = "Effect Name" 

colEffInPer.HeaderText = "Effect Percent" 

EffValue.HeaderText = "Value" 

 

TmpEff.Columns.Add(EffLstCol) 

TmpEff.Columns.Add("Transaction_id") 

colEffInPer.Name = "eff_Percent" 

EffValue.Name = "ColEffValue" 

EffValue.FormatString = "{0:f2}" 

 

EffValue.ReadOnly = True 

TmpEff.Columns.Add(colEffInPer) 

 

TmpEff.Columns.Add(EffValue) 

 

TmpEff.Columns("Transaction_id").IsVisible = False 

 

TmpEff.AllowAddNewRow = False 

GVTransactions.MasterTemplate.Templates.Add(TmpEff) 

 

Effrelation = New GridViewRelation(GVTransactions.MasterTemplate) 

Effrelation.ChildTemplate = TmpEff 

Effrelation.RelationName = "r1" 

Effrelation.ParentColumnNames.Add("Transaction_id") 

Effrelation.ChildColumnNames.Add("Transaction_id") 

GVTransactions.Relations.Add(Effrelation) 

EffTemplloaded = True 

 

Dim summaryItem As New GridViewSummaryItem() 

 

summaryItem.Name = "ColEffValue" 

summaryItem.Aggregate = GridAggregateFunction.Sum 

 

Dim summaryRowItem As New GridViewSummaryRowItem() 

summaryRowItem.Add(summaryItem) 

 

TmpEff.SummaryRowsBottom.Add(summaryRowItem) 

 

End If 

 

Dim EffRow As GridViewDataRowInfo 

 

EffRow = GVTransactions.MasterTemplate.Templates(0).Rows.AddNew 

EffRow.Cells("Transaction_id").Value = GVTransactions.SelectedRows(0).Cells("Transaction_id").Value 

 

GVTransactions.MasterTemplate.ExpandAll() 

 

End Sub 

Private Sub GVTransactions_CellValueChanged(sender As Object, e As GridViewCellEventArgs) Handles GVTransactions.CellValueChanged 

 

If e.Column.Name = "eff_Percent" Then 

 

TmpEff.Rows(e.RowIndex).Cells("ColEffValue").Value = e.Row.ViewInfo.ParentRow.Cells("total").Value * (TmpEff.Rows(e.RowIndex).Cells("eff_Percent").Value / 100) 

 

e.Row.ViewInfo.ParentRow.Cells("Effects_net").Value = e.Row.ViewInfo.ParentRow.Cells("Effects_net").Value + TmpEff.Rows(e.RowIndex).Cells("ColEffValue").Value 

e.Row.ViewInfo.ParentRow.Cells("Net_After_Effects").Value = e.Row.ViewInfo.ParentRow.Cells("total").Value - e.Row.ViewInfo.ParentRow.Cells("Effects_Net").Value 

End If 

 

GVTransactions.EndEdit() 

End Sub 

End Class

5- simply Do as next steps to get my point

1-click on Add item button.
2-click on cell button to add new effect.
3-enter any number to effect percent cell and then press enter.

simply in this event or (any thing you suggest) i want to see summary of effects value column in net effects in parent row , and recalculate all summaries in grid.

thank you very much

best regards

answered on 22 Oct 2013, 07:42 AM

Hello Mohammad,

Thank you for writing back.

In this case it is enough to subscribe to the CellValueChanged event of the grid and change the value of the corresponding cell. It will update the summary data:

Private Sub GVTransactions_CellValueChanged(sender As Object, e As GridViewCellEventArgs)

If e.Column.Name = "eff_Percent" Then

Me.GVTransactions.Rows(0).Cells("Effects_net").Value = e.Value.ToString()

End If

End Sub

I also suggest you to take a look at our articles about managing hierarchical data in RadGridView - http://www.telerik.com/help/winforms/gridview-hierarchical-grid-binding-to-hierarchical-data.html

I hope this helps.

Regards,
George
Telerik