MS Release 2.3.3
This commit is contained in:
@@ -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
|
||||
|
||||
Reference in New Issue
Block a user