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

jj: fix default value of checkbox

Browse Source
This commit is contained in:
Jonathan Jenne 2018-11-07 10:54:02 +01:00
parent 5e58e94e33
commit e48739fcf9
2 changed files with 6 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
Global_Indexer/ClassControls.vb
View File

@ -1,6 +1,7 @@
Public Class ClassControls Public Class ClassControls
Public Shared Function AddCheckBox(indexname As String, y As Integer, vorbelegung As String, caption As String) Public Shared Function AddCheckBox(indexname As String, y As Integer, vorbelegung As String, caption As String)
Try Try
Dim value As Boolean = False
Dim chk As New CheckBox Dim chk As New CheckBox
chk.Name = "chk" & indexname chk.Name = "chk" & indexname
chk.Size = New Size(100, 27) chk.Size = New Size(100, 27)
@ -10,15 +11,17 @@
chk.Text = caption chk.Text = caption
chk.Size = New Size(CInt(caption.Length * 15), 27) chk.Size = New Size(CInt(caption.Length * 15), 27)
End If End If
If vorbelegung <> "" Then
If Boolean.TryParse(vorbelegung, value) = False Then
If vorbelegung = "1" Or vorbelegung = "0" Then If vorbelegung = "1" Or vorbelegung = "0" Then
chk.Checked = CBool(vorbelegung) chk.Checked = CBool(vorbelegung)
Else Else
chk.Checked = False chk.Checked = False
End If End If
Else Else
chk.Checked = False chk.Checked = value
End If End If
Return chk Return chk
Catch ex As Exception Catch ex As Exception
ClassLogger.Add("Unhandled Exception in AddCheckBox: " & ex.Message, True) ClassLogger.Add("Unhandled Exception in AddCheckBox: " & ex.Message, True)

4
Global_Indexer/frmIndex.vb
View File

@ -2122,9 +2122,8 @@ Public Class frmIndex
End If End If
Select Case type Select Case type
Case "BOOLEAN" Case "BOOLEAN"
Dim VORBELGUNG As Integer = DefaultValue
'nur eine Textbox 'nur eine Textbox
Dim chk As CheckBox = ClassControls.AddCheckBox(DR.Item("NAME"), y, VORBELGUNG, DR.Item("COMMENT").ToString) Dim chk As CheckBox = ClassControls.AddCheckBox(DR.Item("NAME"), y, DefaultValue, DR.Item("COMMENT").ToString)
If Not IsNothing(chk) Then If Not IsNothing(chk) Then
pnlIndex.Controls.Add(chk) pnlIndex.Controls.Add(chk)
End If End If
@ -2262,7 +2261,6 @@ Public Class frmIndex
Dim manIndexwert = GetManIndex_Value(elementOhneSonderzeichen, "IDX_AUTO", optionalIndex) Dim manIndexwert = GetManIndex_Value(elementOhneSonderzeichen, "IDX_AUTO", optionalIndex)
If Not IsNothing(manIndexwert) Then If Not IsNothing(manIndexwert) Then
SqlString = SqlString.Replace(element.Value, manIndexwert) SqlString = SqlString.Replace(element.Value, manIndexwert)
Else Else
ClassLogger.Add(">> Attention: manIndexwert is NOTHING - Funktion: FillIndexe_Autom", False) ClassLogger.Add(">> Attention: manIndexwert is NOTHING - Funktion: FillIndexe_Autom", False)
' Return False ' Return False