AppStd/TaskFlow
8
1
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

MS Button und IDB Logik

Browse Source
This commit is contained in:
SchreiberM
2019-11-20 16:19:22 +01:00
parent 8b9b409769
commit 3508aa486c
15 changed files with 706 additions and 649 deletions
Download Patch File Download Diff File Expand all files Collapse all files

27
app/DD_PM_WINDREAM/frmAdministration.vb
View File

@@ -67,8 +67,6 @@ Public Class frmAdministration
End If
ObjekttypenEintragen()
Indexe_eintragen()
End Sub
Sub Indexe_eintragen()
If cmbObjekttypen.Text <> "" Then
@@ -80,6 +78,8 @@ Public Class frmAdministration
If IDB_ACTIVE = False Then
PM_VEKTOR_INDEXComboBox.Enabled = True
Label4.Enabled = True
cmbLOGIndex.Enabled = True
Label9.Enabled = True
Try
Dim indexe = WINDREAM.GetIndicesByObjecttype(cmbObjekttypen.Text)
If indexe IsNot Nothing Then
@@ -111,7 +111,19 @@ Public Class frmAdministration
PM_VEKTOR_INDEXComboBox.SelectedIndex = -1
cmbLOGIndex.SelectedIndex = -1
End Try
If Me.PM_VEKTOR_INDEXComboBox.Text <> "" Then
PM_VEKTOR_INDEXComboBox.SelectedIndex = PM_VEKTOR_INDEXComboBox.FindStringExact(Me.PM_VEKTOR_INDEXComboBox.Text)
Else
PM_VEKTOR_INDEXComboBox.SelectedIndex = -1
End If
If Me.cmbLOGIndex.Text <> "" Then
cmbLOGIndex.SelectedIndex = cmbLOGIndex.FindStringExact(Me.cmbLOGIndex.Text)
Else
cmbLOGIndex.SelectedIndex = -1
End If
Else
cmbLOGIndex.Enabled = False
Label9.Enabled = False
PM_VEKTOR_INDEXComboBox.Enabled = False
Label4.Enabled = False
Try
@@ -137,16 +149,7 @@ Public Class frmAdministration
End If
If Me.PM_VEKTOR_INDEXComboBox.Text <> "" Then
PM_VEKTOR_INDEXComboBox.SelectedIndex = PM_VEKTOR_INDEXComboBox.FindStringExact(Me.PM_VEKTOR_INDEXComboBox.Text)
Else
PM_VEKTOR_INDEXComboBox.SelectedIndex = -1
End If
If Me.cmbLOGIndex.Text <> "" Then
cmbLOGIndex.SelectedIndex = cmbLOGIndex.FindStringExact(Me.cmbLOGIndex.Text)
Else
cmbLOGIndex.SelectedIndex = -1
End If
End If