devexpress vb.net résumé de groupe de treelist sur chaque niveau de noeud

Question

là. Je suis un programmeur interne Vb.net dans une entreprise de fabrication. C'est une PME. Je suis mise à jour COA (Carte de compte) en utilisant devexpress vb.net et pour être précis, j'utilise le composant treelist pour afficher COA.

Malheureusement, le composant ne résume pas tous les nœuds.

J'apprécie vraiment si quelqu'un pourrait m'aider avec ceci.

J'ai créé une version courte de mon code VB.net d'affichage COA et un écran de formulaire exécuté.

Imports DevExpress.Data 

Public Class Form1 
    Dim DataTable1 As New DataTable 

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

     DataTable1.Columns.Add("NodeIDParent", GetType(String)) 
     DataTable1.Columns.Add("NodeID", GetType(String)) 
     DataTable1.Columns.Add("NodeName", GetType(String)) 
     DataTable1.Columns.Add("NodeValue", GetType(Integer)) 

     DataTable1.Rows.Add("", "01", "Node One", 0) 

     DataTable1.Rows.Add("01", "03", "Node One One", 0) 
     DataTable1.Rows.Add("03", "07", "Node One One One", 0) 
     DataTable1.Rows.Add("07", "08", "Node One One One One", 6) 
     DataTable1.Rows.Add("07", "09", "Node One One One Two", 7) 
     DataTable1.Rows.Add("07", "10", "Node One One One Tree", 8) 

     DataTable1.Rows.Add("01", "04", "Node One Two", 0) 
     DataTable1.Rows.Add("04", "05", "Node One Two One", 2) 
     DataTable1.Rows.Add("04", "06", "Node One Two Two", 5) 

     DataTable1.Rows.Add("", "02", "Node Two", 0) 

     With TreeList1 
      .DataSource = DataTable1 

      .OptionsView.ShowRowFooterSummary = True 
      .Columns("NodeValue").RowFooterSummary = SummaryItemType.Sum 

      .OptionsView.ShowSummaryFooter = True 
      .Columns("NodeValue").SummaryFooter = SummaryItemType.Sum 

      .Columns("NodeValue").AllNodesSummary = True 

      .ParentFieldName = "NodeIDParent" 
      .KeyFieldName = "NodeID" 
     End With 
    End Sub 
End Class 

Answer 1

Essayez ce code:

Dim item As GridGroupSummaryItem = New GridGroupSummaryItem() 
     item.FieldName = Grid.Columns("NodeValue").FieldName 
     item.SummaryType = DevExpress.Data.SummaryItemType.Sum 
     item.ShowInGroupColumnFooter = Grid.Columns("NodeValue") 
     item.DisplayFormat = "{0:#,##0.00}" 

Grid.GroupSummary.Add(item)