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

MS

Browse Source
This commit is contained in:
SchreiberM
2020-04-28 09:38:32 +02:00
parent c131071e32
commit c7359a0c42
3 changed files with 109 additions and 147 deletions
Download Patch File Download Diff File Expand all files Collapse all files

31
app/DD_PM_WINDREAM/frmAdministration.vb
View File

@@ -13,8 +13,7 @@ Public Class frmAdministration
Dim formloaded As Boolean
Private INSERT_ACTIVE As Boolean = False
Dim MyIndicies As List(Of String)
Dim MyIndicies_Types As List(Of Integer)
Private Sub frmFormDesigner_Load(sender As Object, e As System.EventArgs) Handles Me.Load
formloaded = False
UNSAVED_CHANGES_PROFILE = False
@@ -83,11 +82,19 @@ Public Class frmAdministration
Exit Sub
End If
Try
Dim indexe = WINDREAM.GetIndicesByObjecttype(cmbObjekttypen.Text)
If indexe IsNot Nothing Then
For Each index As String In indexe
MyIndicies_Types = New List(Of Integer)
MyIndicies = New List(Of String)
MyIndicies = WINDREAM.GetIndicesByObjecttype(cmbObjekttypen.Text).ToList()
If MyIndicies IsNot Nothing Then
Dim i As Integer = 0
For Each index As String In MyIndicies
Dim _vektorString As Boolean = False
Select Case WINDREAM.GetTypeOfIndex(index)
Dim oIndexType = WINDREAM.GetTypeOfIndex(i)
i += 1
MyIndicies_Types.Add(oIndexType)
Select Case oIndexType
Case 4097
_vektorString = True
Case 36865
@@ -102,12 +109,12 @@ Public Class frmAdministration
Next
End If
MyIndicies_Types = New List(Of Integer)
MyIndicies = WINDREAM.GetIndicesByObjecttype(cmbObjekttypen.Text).ToList()
For Each i In MyIndicies
Dim type = WINDREAM.GetTypeOfIndex(i)
MyIndicies_Types.Add(type)
Next
'MyIndicies_Types = New List(Of Integer)
'MyIndicies = WINDREAM.GetIndicesByObjecttype(cmbObjekttypen.Text).ToList()
'For Each i In MyIndicies
' Dim type = WINDREAM.GetTypeOfIndex(i)
' MyIndicies_Types.Add(type)
'Next
Catch ex As Exception
LOGGER.Error(ex)
MsgBox("Error in GetIndices windream: " & vbNewLine & ex.Message, MsgBoxStyle.Critical, "Achtung:")