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

Speichern und Laden von deskriptiven Index aktualisiert. - frmNIVerknuepfungen

Browse Source
This commit is contained in:
OlgunR 2025-10-15 08:43:30 +02:00
parent 13751aac22
commit 6422510d01
1 changed files with 1 additions and 35 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

36
ToolCollection/frmNIVerknuepfungen.vb
View File

@ -223,7 +223,7 @@ Public Class frmNIVerknuepfungen
End If End If
'Überprüfungsselect 'Überprüfungsselect
Me.txtCheckIndexSQL.Text = "" Me.txtCheckIndexSQL.Text = Me._selectedProfil.checkIndexsql
'Move and Rename aktiv? 'Move and Rename aktiv?
If Me._selectedProfil.SQL_Anweisung IsNot Nothing Then If Me._selectedProfil.SQL_Anweisung IsNot Nothing Then
If Me._selectedProfil.SQL_Anweisung <> "" Then If Me._selectedProfil.SQL_Anweisung <> "" Then
@ -2746,40 +2746,6 @@ Public Class frmNIVerknuepfungen
End If End If
'Try
' ' wenn im ListView eine Zeile selektiert wurde
' If Me.lvwVerknuepfungen.SelectedItems.Count > 0 Then
' ' Überprüfen ob eingegebener Wert gepeichert werden muß?
' Dim SQL_ORIGIN As String = Me._selectedProfil._links.getLinkByValues(Me.lvwVerknuepfungen.SelectedItems(0).SubItems(0).Text, Me.lvwVerknuepfungen.SelectedItems(0).SubItems(1).Text,
' Me.lvwVerknuepfungen.SelectedItems(0).SubItems(2).Text).getSelectAnweisung().ToString
' If SQL_ORIGIN <> Me.txtSelectAnweisung.Text Then
' With btnSaveAll
' .Enabled = True
' .ForeColor = Drawing.Color.Black
' End With
' End If
' ' die Informationen der selektierten Verknüpfung auslesen
' Me._selectedProfil._links.getLinkByValues(Me.lvwVerknuepfungen.SelectedItems(0).SubItems(0).Text, Me.lvwVerknuepfungen.SelectedItems(0).SubItems(1).Text,
' Me.lvwVerknuepfungen.SelectedItems(0).SubItems(2).Text).setSelectAnweisung(Me.txtSelectAnweisung.Text)
' Me.btnSaveAll.Enabled = True
' Me._selectedProfil.setChanged()
' Me._selectedProfil._links.setLinksChanged()
' 'Jetzt den Startwert bestimmen
' 'MsgBox("[%" & Me.lvwVerbunden.SelectedItems(0).SubItems(0).Text & "]")
' If Me.txteindeutigerIndex.Text <> "" Then
' If Me.txtSelectAnweisung.Text.Contains(Me.txteindeutigerIndex.Text) Then
' Me.lblSQLTest.Text = "Testwert für eind. Index: " & "[%" & Me.txteindeutigerIndex.Text & "]"
' End If
' End If
' End If
'Catch ex As Exception
' MsgBox("Die Verknüpfung konnte nicht angelegt werden." & vbNewLine & vbNewLine & ex.Message, MsgBoxStyle.Exclamation, "Fehler beim Anlegen einer Verknüpfung")
'End Try
End Sub End Sub
Private Sub txteindeutigerIndex_TextChanged(sender As System.Object, e As System.EventArgs) Handles txteindeutigerIndex.TextChanged Private Sub txteindeutigerIndex_TextChanged(sender As System.Object, e As System.EventArgs) Handles txteindeutigerIndex.TextChanged