VersionRelease

app/DD_Clipboard_Searcher/frmResultDoc.vb

@@ -52,6 +52,7 @@ Public Class frmResultDoc
         Public TabIndex As Integer
         Public TabCaption As String
         Public ProfileId As Integer
+        Public SQLCommand As String
     End Class
 
     Private Async Sub frmResultDoc_Load(sender As Object, e As EventArgs) Handles Me.Load
@@ -115,7 +116,8 @@ Public Class frmResultDoc
                 .DataTable = oDatatable,
                 .ProfileId = oProfileId,
                 .TabCaption = oTabTitle,
-                .TabIndex = oCounter
+                .TabIndex = oCounter,
+                .SQLCommand = oSQL
             })
 
             oCounter += 1
@@ -150,7 +152,11 @@ Public Class frmResultDoc
             Return Nothing
         End Try
     End Function
-
+    Sub Filter_EventTab(FilterCount As Integer)
+        Dim oTabIndex = XtraTabControlDocs.SelectedTabPageIndex
+        Dim oTabTitle = DTDocSearchDefinition.Rows(oTabIndex).Item("TAB_TITLE")
+        XtraTabControlDocs.TabPages(TabIndex).Text = $"{oTabTitle} ({FilterCount} Filtered)"
+    End Sub
     Sub RefreshTabDoc(ProfileId As Integer, Datatable As DataTable, TabIndex As Integer, TabCaption As String)
         Try
             Dim myGridControl As GridControl = GridControlDocSearch1
@@ -536,6 +542,7 @@ Public Class frmResultDoc
             tslblState.Text = ""
         End Try
     End Sub
+
     Sub ReLoad_Active_DocTab()
         Try
             Dim oTabIndex = XtraTabControlDocs.SelectedTabPageIndex
@@ -647,4 +654,20 @@ Public Class frmResultDoc
         ShouldReturnToMatchForm = True
         Close()
     End Sub
+
+    Private Sub GridViewDocSearch1_ColumnFilterChanged(sender As Object, e As EventArgs) Handles GridViewDocSearch1.ColumnFilterChanged
+        Filter_EventTab(GridViewDocSearch1.RowCount)
+    End Sub
+    Private Sub GridViewDocSearch2_ColumnFilterChanged(sender As Object, e As EventArgs) Handles GridViewDocSearch2.ColumnFilterChanged
+        Filter_EventTab(GridViewDocSearch2.RowCount)
+    End Sub
+    Private Sub GridViewDocSearch3_ColumnFilterChanged(sender As Object, e As EventArgs) Handles GridViewDocSearch3.ColumnFilterChanged
+        Filter_EventTab(GridViewDocSearch3.RowCount)
+    End Sub
+    Private Sub GridViewDocSearch4_ColumnFilterChanged(sender As Object, e As EventArgs) Handles GridViewDocSearch4.ColumnFilterChanged
+        Filter_EventTab(GridViewDocSearch4.RowCount)
+    End Sub
+    Private Sub GridViewDocSearch5_ColumnFilterChanged(sender As Object, e As EventArgs) Handles GridViewDocSearch5.ColumnFilterChanged
+        Filter_EventTab(GridViewDocSearch5.RowCount)
+    End Sub
 End Class