AppStd/FileFlow
8
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Reload Indicies when ObjectType changes

Browse Source
This commit is contained in:
Jonathan Jenne 2020-12-11 11:43:34 +01:00
parent 6ed90fa6c1
commit 158c043675
1 changed files with 8 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
Global_Indexer/frmAdministration.vb
View File

@ -9,6 +9,8 @@ Public Class frmAdministration
Private SourceAttributes As List(Of String) Private SourceAttributes As List(Of String)
Private SourceObjectTypes As List(Of String) Private SourceObjectTypes As List(Of String)
Private Current_ObjectType As String = ""
Private GroupToDelete As Integer = Nothing Private GroupToDelete As Integer = Nothing
Private IsInsert As Boolean = False Private IsInsert As Boolean = False
Dim frmloaded As Boolean = False Dim frmloaded As Boolean = False
@ -300,6 +302,8 @@ Public Class frmAdministration
Private Sub OBJEKTTYPComboBox_SelectedIndexChanged(sender As Object, e As EventArgs) Handles OBJEKTTYPComboBox.SelectedIndexChanged Private Sub OBJEKTTYPComboBox_SelectedIndexChanged(sender As Object, e As EventArgs) Handles OBJEKTTYPComboBox.SelectedIndexChanged
If WINDREAM_DIRECTCheckBox.Checked = True Then If WINDREAM_DIRECTCheckBox.Checked = True Then
load_WDIndices() load_WDIndices()
Current_ObjectType = OBJEKTTYPComboBox.Text
End If End If
End Sub End Sub
Sub load_WDIndices() Sub load_WDIndices()
@ -309,14 +313,14 @@ Public Class frmAdministration
Me.WD_INDEXComboBox.Items.Add("") Me.WD_INDEXComboBox.Items.Add("")
Me.INDEXNAME_AutoIndexCMB.Items.Clear() Me.INDEXNAME_AutoIndexCMB.Items.Clear()
If SourceAttributes Is Nothing Then If SourceAttributes Is Nothing Or Current_ObjectType <> OBJEKTTYPComboBox.Text Then
SourceAttributes = WINDREAM.GetIndiciesByObjecttype(OBJEKTTYPComboBox.Text) SourceAttributes = WINDREAM.GetIndiciesByObjecttype(OBJEKTTYPComboBox.Text)
End If End If
If SourceAttributes IsNot Nothing Then If SourceAttributes IsNot Nothing Then
For Each index As String In SourceAttributes For Each oIndex As String In SourceAttributes
Me.WD_INDEXComboBox.Items.Add(index) Me.WD_INDEXComboBox.Items.Add(oIndex)
INDEXNAME_AutoIndexCMB.Items.Add(index) INDEXNAME_AutoIndexCMB.Items.Add(oIndex)
Next Next
End If End If
End If End If