MS Release 2.3.3

This commit is contained in:
2022-01-10 10:34:44 +01:00
parent b33e87c5d2
commit 482f015d6f
61 changed files with 33059 additions and 827 deletions

View File

@@ -134,8 +134,8 @@ Public Class frmFormDesigner
End If
End If
If Application.OpenForms().OfType(Of frmControl_Detail).Any Then
frmControl_Detail.Close()
If Application.OpenForms().OfType(Of frmColumn_Detail).Any Then
frmColumn_Detail.Close()
End If
' Setzt den typ des SQL-Befehls für frmSQL_DESIGNER
@@ -575,7 +575,7 @@ Public Class frmFormDesigner
CurrentColumnId = oColumnId
Dim frmTableColumn = New frmControl_Detail()
Dim frmTableColumn = New frmColumn_Detail()
frmTableColumn.FillData(CurrentColumnId)
frmTableColumn.Text = "Konfiguration von Spalte: " & oColumnCaption
Dim oResult = frmTableColumn.ShowDialog()
@@ -853,6 +853,7 @@ Public Class frmFormDesigner
txtProps.Enable_SQL = New SQLValue(NotNull(oRow.Item("SQL_ENABLE"), ""))
txtProps.Enable_SQL_OnLoad = New SQLValue(NotNull(oRow.Item("SQL_ENABLE_ON_LOAD"), ""))
txtProps.SetControlData = New SQLValue(NotNull(oRow.Item("SET_CONTROL_DATA"), ""))
props = txtProps
ElseIf TypeOf sender Is ComboBox Then