fix dbnull error for checkbox

This commit is contained in:
Jonathan Jenne 2019-12-04 15:01:34 +01:00
parent c1c1f3f06d
commit 5babf515ee

View File

@ -866,7 +866,7 @@ Public Class frmFormDesigner
Dim check As CheckBox = sender
Dim checkProps As CheckboxProperties = CreatePropsObjectWithIndicies(New CheckboxProperties, row, Source_AllIndicies)
checkProps.Text = check.Text
checkProps.Enable_SQL = New SQLValue(row.Item("SQL_ENABLE"))
checkProps.Enable_SQL = New SQLValue(NotNull(row.Item("SQL_ENABLE"), ""))
props = checkProps
ElseIf TypeOf sender Is TextBox Then
Dim txt As TextBox = sender