use checkstate for checkboxes

2019-07-17 12:22:55 +02:00
parent db20d97253
commit 551e869392
3 changed files with 13 additions and 3 deletions
--- a/app/DD_PM_WINDREAM/frmMassValidator.vb
+++ b/app/DD_PM_WINDREAM/frmMassValidator.vb
@@ -1543,12 +1543,16 @@ Public Class frmMassValidator
                            Dim chk As CheckBox = oControl
                            oMyControlInput = chk.Checked.ToString

-                            If chk.Checked = False And _MUSSEINGABE = True Then
+                            If chk.CheckState = CheckState.Indeterminate And _MUSSEINGABE = True Then
                                oMissing = True
                                oErrorMessage = "Option '" & chk.Name & "' is required."
                                Exit For
                            End If

+                            If chk.CheckState = CheckState.Indeterminate Then
+                                LOGGER.Debug("Checkbox {0} is indeterminate. Skipping indexing.", chk.Name)
+                                Exit For
+                            End If

                            Dim result() As String
                            ReDim Preserve result(0)