ms search1

GUIs.ZooFlow/frmSearchStart.vb

@@ -7,6 +7,7 @@ Imports DevExpress.XtraEditors
 Public Class frmSearchStart
     Private Logger As Logger
     Private DTSearchProfiles As DataTable
+    Private TabSelectedIndex As Integer
     Private TabSelected As XtraTabPage
     Private PSEARCH_ID As Integer = 0
     Private PSEARCH_BASE_RESULT_SQL As String
@@ -65,8 +66,11 @@ Public Class frmSearchStart
                 cmbProfile.AutoCompleteMode = AutoCompleteMode.Suggest
                 cmbProfile.AutoCompleteSource = AutoCompleteSource.ListItems
                 cmbProfile.SelectedIndex = -1
+                TabSelectedIndex = -1
+
                 Me.Panel1.Visible = True
             Else
+                TabSelectedIndex = 0
                 TabSelected = XtraTabControl1.TabPages(0)
                 TabSelected.PageVisible = True
                 PSEARCH_ID = DTSearchProfiles.Rows(0).Item("SEARCH_PROFILE_ID")
@@ -344,4 +348,22 @@ Public Class frmSearchStart
 
     End Sub
 
+    Private Sub cmbProfile_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cmbProfile.SelectedIndexChanged
+        If FormShown = False Then Exit Sub
+        If cmbProfile.SelectedIndex <> -1 Then
+            If TabSelectedIndex = -1 Then
+                TabSelectedIndex = 0
+            Else
+                TabSelectedIndex += 1
+            End If
+            TabSelected = XtraTabControl1.TabPages(TabSelectedIndex)
+            TabSelected.PageVisible = True
+            PSEARCH_ID = cmbProfile.SelectedValue
+            TabSelected.Text = cmbProfile.Text
+            Load_Search_Attributes()
+            BarButtonItemNewSearch.Visibility = DevExpress.XtraBars.BarItemVisibility.Always
+            XtraTabControl1.SelectedTabPageIndex = TabSelectedIndex
+
+        End If
+    End Sub
 End Class