summary row value move to textbox

Hello, Hengky,

If I understand your requirement correctly you would like to hide the summary row but still be able to get the calculated value and show it in a text box. If you set IsVisible of the summary row to false, the GroupSummaryEvaluate shouldn't fire. This is why in this case I would suggest using the GetSummary method as demonstrated below:

 Private Sub RadForm1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
     Me.CustomersTableAdapter.Fill(Me.NwindDataSet.Customers)

     Dim summaryItem As New GridViewSummaryItem()
     summaryItem.Name = "ContactName"
     summaryItem.Aggregate = GridAggregateFunction.Count
     Dim summaryRowItem As New GridViewSummaryRowItem()
     summaryRowItem.Add(summaryItem)
     Me.RadGridView1.SummaryRowsBottom.Add(summaryRowItem)
     Me.RadGridView1.MasterView.SummaryRows(0).IsVisible = False
     Dim DataColumn = TryCast(Me.RadGridView1.Columns(2), GridViewDataColumn)

     Dim value = Me.RadGridView1.MasterView.SummaryRows(0).GetSummary(DataColumn)
      Me.RadTextBox1.Text = value
 End Sub

I hope this helps. If you need further assistance please let me know.

Regards,
Nadya
Progress Telerik

Hello nadya ... 

I have test the code that u gave to me... 

it still doesn't work .. 

i just need to sum on run the code ... every change the value of Nilai it will automatic sum .. 

tq nad ..

Hello, Hengky,

You can handle the CellEndEdit event which fires every time when cell editing is finished and the new value is committed to the cell. In this event, you can get the result from the GetSummary method. Thus, any time a cell value from the column is updated you will get the new result for the summary row.

More information about the editing event is the grid is available here: https://docs.telerik.com/devtools/winforms/controls/gridview/insert-update-delete-records/data-editing-event-sequence 

I hope this helps. If you need further assistance do not hesitate to contact me.

Regards,
Nadya
Progress Telerik

Hello Nadya .. thanks for replying ... 

this code i wrote ... 

    Private Sub GridDetail_CellEndEdit(sender As Object, e As GridViewCellEventArgs) Handles GridDetail.CellEndEdit
        If e.Column.Name = "Qtty" Or e.Column.Name = "Harga" Then
            Dim summaryItem As New GridViewSummaryItem()
            summaryItem.Name = "Nilai"
            summaryItem.Aggregate = GridAggregateFunction.Sum
            Dim summaryRowItem As New GridViewSummaryRowItem()
            summaryRowItem.Add(summaryItem)
            Me.GridDetail.SummaryRowsBottom.Add(summaryRowItem)
            Me.GridDetail.MasterView.SummaryRows(0).IsVisible = False


            Dim DataColumn = TryCast(Me.GridDetail.Columns(5), GridViewDataColumn)
            Dim value = Me.GridDetail.MasterView.SummaryRows(0).GetSummary(DataColumn)
            Me.TxtTotal.Text = value
        End If

    End Sub

summaryrows still show... 

Hello, Hengky,

I updated my project in order to demonstrate how you can track the cell value changes and update the result that is shown in the text box field. Please refer to the following code snippet which result is demonstrated in the attached gif file.

Public Class RadForm1
    Dim DataColumn
    Private Sub RadForm1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Me.ProductsTableAdapter.Fill(Me.NwindDataSet.Products)

        AddHandler RadGridView1.CellEndEdit, AddressOf radGridView1_CellEndEdit

        Dim summaryItem As New GridViewSummaryItem()
        summaryItem.Name = "UnitsInStock"
        summaryItem.Aggregate = GridAggregateFunction.Sum
        Dim summaryRowItem As New GridViewSummaryRowItem()
        summaryRowItem.Add(summaryItem)
        Me.RadGridView1.SummaryRowsBottom.Add(summaryRowItem)
        Me.RadGridView1.MasterView.SummaryRows(0).IsVisible = False

        DataColumn = TryCast(Me.RadGridView1.Columns(2), GridViewDataColumn)
        Dim value = Me.RadGridView1.MasterView.SummaryRows(0).GetSummary(DataColumn)
        Me.RadTextBox1.Text = value
    End Sub

    Private Sub radGridView1_CellEndEdit(ByVal sender As Object, ByVal e As GridViewCellEventArgs)
        Dim value = Me.RadGridView1.MasterView.SummaryRows(0).GetSummary(DataColumn)
        Me.RadTextBox1.Text = value
    End Sub
End Class

I hope this helps. If you need further assistance please let me know.

Regards,
Nadya
Progress Telerik

tq nad ... 

it's work very2 fine ... 

tq tq