fix depending controls crashing because of missing tag for datetimepicker
This commit is contained in:
Jonathan Jenne
@@ -83,20 +83,6 @@ Public Class frmIndex
|
||||
lbl.Location = New Point(11, ylbl)
|
||||
End Sub
|
||||
|
||||
Sub AddDateTimePicker(indexname As String, y As Integer)
|
||||
Dim dtp As New DateTimePicker
|
||||
dtp.Name = "dtp" & indexname
|
||||
dtp.Format = DateTimePickerFormat.Short
|
||||
dtp.Size = New Size(133, 27)
|
||||
pnlIndex.Controls.Add(dtp)
|
||||
dtp.Location = New Point(11, y)
|
||||
AddHandler dtp.ValueChanged, AddressOf OndtpChanged
|
||||
End Sub
|
||||
Sub OndtpChanged()
|
||||
'offen was hier zu tun ist
|
||||
End Sub
|
||||
|
||||
|
||||
Function Indexwert_checkValueDB(indexname As String, wert As String)
|
||||
Try
|
||||
Dim DR As DataRow
|
||||
@@ -1596,9 +1582,9 @@ Public Class frmIndex
|
||||
|
||||
Private Sub LoadIndexe_Man()
|
||||
Try
|
||||
Dim anz As Integer = 1
|
||||
Dim ylbl As Integer = 11
|
||||
Dim y As Integer = 33
|
||||
Dim oControlCount As Integer = 1
|
||||
Dim oLabelPosition As Integer = 11
|
||||
Dim oControlPosition As Integer = 33
|
||||
Dim oControls As New ClassControls(pnlIndex, Me)
|
||||
|
||||
If DT_INDEXEMAN.Rows.Count = 0 Then
|
||||
@@ -1606,61 +1592,64 @@ Public Class frmIndex
|
||||
LOGGER.Info(" - Keine Manuellen Indizes für die " & vbNewLine & "Dokumentart " & cmbDokumentart.Text & " definiert")
|
||||
End If
|
||||
|
||||
For Each DR As DataRow In DT_INDEXEMAN.Rows
|
||||
Dim type = DR.Item("DATATYPE")
|
||||
Dim MultiSelect As Boolean = DR.Item("MULTISELECT")
|
||||
Dim AddNewItems As Boolean = DR.Item("VKT_ADD_ITEM")
|
||||
Dim PreventDuplicates As Boolean = DR.Item("VKT_PREVENT_MULTIPLE_VALUES")
|
||||
For Each oRow As DataRow In DT_INDEXEMAN.Rows
|
||||
Dim oDataType = oRow.Item("DATATYPE")
|
||||
Dim MultiSelect As Boolean = oRow.Item("MULTISELECT")
|
||||
Dim AddNewItems As Boolean = oRow.Item("VKT_ADD_ITEM")
|
||||
Dim PreventDuplicates As Boolean = oRow.Item("VKT_PREVENT_MULTIPLE_VALUES")
|
||||
Dim oControlName As String = oRow.Item("NAME")
|
||||
|
||||
If type <> "BOOLEAN" Then
|
||||
addLabel(DR.Item("NAME"), DR.Item("COMMENT").ToString, ylbl, anz)
|
||||
If oDataType <> "BOOLEAN" Then
|
||||
addLabel(oControlName, oRow.Item("COMMENT").ToString, oLabelPosition, oControlCount)
|
||||
End If
|
||||
|
||||
Dim DefaultValue = Check_HistoryValues(DR.Item("NAME"), DR.Item("DOKUMENTART"))
|
||||
Dim DefaultValue = Check_HistoryValues(oControlName, oRow.Item("DOKUMENTART"))
|
||||
If DefaultValue Is Nothing Then
|
||||
DefaultValue = DR.Item("DEFAULT_VALUE")
|
||||
DefaultValue = oRow.Item("DEFAULT_VALUE")
|
||||
End If
|
||||
Select Case type
|
||||
Select Case oDataType
|
||||
Case "BOOLEAN"
|
||||
Dim chk As CheckBox = oControls.AddCheckBox(DR.Item("NAME"), y, DefaultValue, DR.Item("COMMENT").ToString)
|
||||
Dim chk As CheckBox = oControls.AddCheckBox(oControlName, oControlPosition, DefaultValue, oRow.Item("COMMENT").ToString)
|
||||
If Not IsNothing(chk) Then
|
||||
pnlIndex.Controls.Add(chk)
|
||||
End If
|
||||
Case "INTEGER"
|
||||
If DR.Item("SUGGESTION") = True And DR.Item("SQL_RESULT").ToString.Length > 0 Then
|
||||
Dim oControl = oControls.AddVorschlag_ComboBox(DR.Item("NAME"), y, DR.Item("CONNECTION_ID"), DR.Item("SQL_RESULT"), MultiSelect, DR.Item("DATATYPE"), DefaultValue, AddNewItems, PreventDuplicates)
|
||||
If oRow.Item("SUGGESTION") = True And oRow.Item("SQL_RESULT").ToString.Length > 0 Then
|
||||
Dim oControl = oControls.AddVorschlag_ComboBox(oControlName, oControlPosition, oRow.Item("CONNECTION_ID"), oRow.Item("SQL_RESULT"), MultiSelect, oDataType, DefaultValue, AddNewItems, PreventDuplicates)
|
||||
If Not IsNothing(oControl) Then
|
||||
pnlIndex.Controls.Add(oControl)
|
||||
End If
|
||||
Else
|
||||
'nur eine Textbox
|
||||
Dim oControl = oControls.AddTextBox(DR.Item("NAME"), y, DefaultValue, DR.Item("DATATYPE"))
|
||||
Dim oControl = oControls.AddTextBox(oControlName, oControlPosition, DefaultValue, oDataType)
|
||||
If Not IsNothing(oControl) Then
|
||||
pnlIndex.Controls.Add(oControl)
|
||||
End If
|
||||
End If
|
||||
Case "VARCHAR"
|
||||
If DR.Item("SUGGESTION") = True And DR.Item("SQL_RESULT").ToString.Length > 0 Then
|
||||
Dim oControl = oControls.AddVorschlag_ComboBox(DR.Item("NAME"), y, DR.Item("CONNECTION_ID"), DR.Item("SQL_RESULT"), MultiSelect, DR.Item("DATATYPE"), DefaultValue, AddNewItems, PreventDuplicates)
|
||||
If oRow.Item("SUGGESTION") = True And oRow.Item("SQL_RESULT").ToString.Length > 0 Then
|
||||
Dim oControl = oControls.AddVorschlag_ComboBox(oControlName, oControlPosition, oRow.Item("CONNECTION_ID"), oRow.Item("SQL_RESULT"), MultiSelect, oDataType, DefaultValue, AddNewItems, PreventDuplicates)
|
||||
If Not IsNothing(oControl) Then
|
||||
pnlIndex.Controls.Add(oControl)
|
||||
End If
|
||||
Else
|
||||
If DR.Item("NAME").ToString.ToLower = "dateiname" Then
|
||||
Dim oControl = oControls.AddTextBox(DR.Item("NAME"), y, System.IO.Path.GetFileNameWithoutExtension(CURRENT_WORKFILE), DR.Item("DATATYPE"))
|
||||
If oControlName.ToString.ToLower = "dateiname" Then
|
||||
Dim oControl = oControls.AddTextBox(oControlName, oControlPosition, System.IO.Path.GetFileNameWithoutExtension(CURRENT_WORKFILE), oDataType)
|
||||
If Not IsNothing(oControl) Then
|
||||
pnlIndex.Controls.Add(oControl)
|
||||
End If
|
||||
Else
|
||||
Dim VORBELGUNG As String = DefaultValue
|
||||
Dim oControl = oControls.AddTextBox(DR.Item("NAME"), y, VORBELGUNG, DR.Item("DATATYPE"))
|
||||
Dim oControl = oControls.AddTextBox(oControlName, oControlPosition, VORBELGUNG, oDataType)
|
||||
If Not IsNothing(oControl) Then
|
||||
pnlIndex.Controls.Add(oControl)
|
||||
End If
|
||||
End If
|
||||
End If
|
||||
Case "DATE"
|
||||
AddDateTimePicker(DR.Item("NAME"), y)
|
||||
Dim oPicker = oControls.AddDateTimePicker(oControlName, oControlPosition, oDataType)
|
||||
pnlIndex.Controls.Add(oPicker)
|
||||
|
||||
Case Else
|
||||
If USER_LANGUAGE = "de-DE" Then
|
||||
MsgBox("Bitte überprüfen Sie den Datentyp des hinterlegten Indexwertes!", MsgBoxStyle.Critical, "Achtung:")
|
||||
@@ -1671,18 +1660,18 @@ Public Class frmIndex
|
||||
LOGGER.Warn(" - Datentyp nicht hinterlegt - LoadIndexe_Man")
|
||||
End Select
|
||||
|
||||
anz += 1
|
||||
ylbl += 50
|
||||
y += 50
|
||||
oControlCount += 1
|
||||
oLabelPosition += 50
|
||||
oControlPosition += 50
|
||||
'make y as height in fom
|
||||
Next
|
||||
Dim pnlHeight = y - 30
|
||||
Dim oPanelHeight = oControlPosition - 30
|
||||
|
||||
If pnlIndex.Height < pnlHeight Then
|
||||
If (Me.Height - 315) < pnlHeight Then
|
||||
Me.Height = (Me.Height - 315) + pnlHeight
|
||||
If pnlIndex.Height < oPanelHeight Then
|
||||
If (Me.Height - 315) < oPanelHeight Then
|
||||
Me.Height = (Me.Height - 315) + oPanelHeight
|
||||
End If
|
||||
pnlIndex.Height = pnlHeight
|
||||
pnlIndex.Height = oPanelHeight
|
||||
End If
|
||||
|
||||
SendKeys.Send("{TAB}")
|
||||
|
||||
Reference in New Issue
Block a user