MS

app/DD-Record-Organiser/frmConstructor_Main.vb

@@ -2034,6 +2034,7 @@ Public Class frmConstructor_Main
                     Check_FOLLOWUP_IsConfigured(ENTITY_ID)
                     Load_Grid_Layout()
                     Load_Splitter_Layout()
+                    SET_ROWCOUNT_STRING()
                 End If
                 If POS_ENTITY > 0 Then
                     If USER_LANGUAGE <> "de-DE" Then
@@ -4901,7 +4902,12 @@ Public Class frmConstructor_Main
     End Sub
 
     Private Sub grvwGrid_ColumnFilterChanged(sender As Object, e As EventArgs) Handles grvwGrid.ColumnFilterChanged
-        Console.WriteLine("Filter changed: " & Now)
+        SET_ROWCOUNT_STRING()
+    End Sub
+    Sub SET_ROWCOUNT_STRING()
+        Dim nodetext = ACT_EBENE_STRING
+        nodetext = nodetext & " (" & grvwGrid.RowCount & ")"
+        TreeViewMain.SelectedNode.Text = nodetext
     End Sub
     Public Sub New()
         ' Dieser Aufruf ist für den Designer erforderlich.