From 6422510d019144cb670d4392801cfbed7981e1f7 Mon Sep 17 00:00:00 2001 From: OlgunR Date: Wed, 15 Oct 2025 08:43:30 +0200 Subject: [PATCH] Speichern und Laden von deskriptiven Index aktualisiert. - frmNIVerknuepfungen --- ToolCollection/frmNIVerknuepfungen.vb | 36 +-------------------------- 1 file changed, 1 insertion(+), 35 deletions(-) diff --git a/ToolCollection/frmNIVerknuepfungen.vb b/ToolCollection/frmNIVerknuepfungen.vb index 8d85581..f302aa6 100644 --- a/ToolCollection/frmNIVerknuepfungen.vb +++ b/ToolCollection/frmNIVerknuepfungen.vb @@ -223,7 +223,7 @@ Public Class frmNIVerknuepfungen End If 'Überprüfungsselect - Me.txtCheckIndexSQL.Text = "" + Me.txtCheckIndexSQL.Text = Me._selectedProfil.checkIndexsql 'Move and Rename aktiv? If Me._selectedProfil.SQL_Anweisung IsNot Nothing Then If Me._selectedProfil.SQL_Anweisung <> "" Then @@ -2746,40 +2746,6 @@ Public Class frmNIVerknuepfungen 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 Private Sub txteindeutigerIndex_TextChanged(sender As System.Object, e As System.EventArgs) Handles txteindeutigerIndex.TextChanged