MS Globix1

GUIs.ZooFlow/frmSearchStart.vb

@@ -5,10 +5,8 @@ Imports DevExpress.XtraTab
 Imports DevExpress.XtraGrid
 Imports DevExpress.XtraGrid.Views.Grid
 Imports DevExpress.XtraEditors
-Imports DigitalData.GUIs.Common
-Imports System.Random
 Imports DevExpress.XtraSplashScreen
-Imports DevExpress.XtraEditors.Repository
+Imports DigitalData.GUIs.Common
 
 Public Class frmSearchStart
     Private Logger As Logger
@@ -274,9 +272,9 @@ Public Class frmSearchStart
                     oView = CType(myDGV.MainView, GridView)
                     oMyLastGridView = oView
                     If CBool(oAttributeRow.Item("MULTISELECT")) = True Then
-                        AddHandler oView.SelectionChanged, AddressOf RenewSearchAttributes
+                        'AddHandler oView.SelectionChanged, AddressOf RenewSearchAttributes
                     Else
-                        AddHandler oView.FocusedRowChanged, AddressOf FocusedRowChanged
+                        ' AddHandler oView.FocusedRowChanged, AddressOf FocusedRowChanged
 
                     End If
                     oView.FocusInvalidRow()
@@ -421,7 +419,7 @@ Public Class frmSearchStart
             Dim oResult As String = CType(rowView.Item(0), String)
             Dim oAttrID = DirectCast(oCurrentControl.Tag, ClassControlCreator.ControlMetadata).AttrID
             Dim oAttrTitle = DirectCast(oCurrentControl.Tag, ClassControlCreator.ControlMetadata).AttrTitle
-            RenewSearchAttributes()
+            ' RenewSearchAttributes()
             ' AddSearchAttribute(oAttrID, oAttrTitle, oResult)
 
         End If
@@ -433,7 +431,7 @@ Public Class frmSearchStart
         Dim oChecked = oCurrentCB.Checked
         Dim oAttrID = DirectCast(oCurrentCB.Tag, ClassControlCreator.ControlMetadata).AttrID
         Dim oAttrTitle = DirectCast(oCurrentCB.Tag, ClassControlCreator.ControlMetadata).AttrTitle
-        RenewSearchAttributes()
+        'RenewSearchAttributes()
         ' AddSearchAttribute(oAttrID, oAttrTitle, oChecked.ToString)
     End Sub
     Private Sub frmSearchStart_Shown(sender As Object, e As EventArgs) Handles Me.Shown
@@ -476,7 +474,7 @@ Public Class frmSearchStart
                 ChangedDateControls = oList
             End If
 
-            RenewSearchAttributes()
+            'RenewSearchAttributes()
 
             'Dim oInsert = $"EXEC PRIDB_NEW_USER_SEARCH_CRITERIA {PSEARCH_ID.ToString},{My.Application.User.UserId.ToString},{oAttrID.ToString},'{omydate}','{My.Application.User.UserName}'"
             'My.DatabaseIDB.ExecuteNonQuery(oInsert)
@@ -836,6 +834,7 @@ Public Class frmSearchStart
     End Function
 
     Private Sub BarButtonItem4_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem4.ItemClick
+        RenewSearchAttributes()
         Start_Search()
     End Sub
     Private Sub Start_Search()