jj: fix columns in dataset

Global_Indexer/MyDataset.Designer.vb

@@ -3679,10 +3679,11 @@ Partial Public Class MyDataset
             Me.columnOPTIONAL.DefaultValue = CType(false,Boolean)
             Me.columnSAVE_VALUE.AllowDBNull = false
             Me.columnSAVE_VALUE.DefaultValue = CType(false,Boolean)
-            Me.columnMULTISELECT.AllowDBNull = false
             Me.columnMULTISELECT.DefaultValue = CType(false,Boolean)
             Me.columnVKT_ADD_ITEM.AllowDBNull = false
+            Me.columnVKT_ADD_ITEM.DefaultValue = CType(false,Boolean)
             Me.columnVKT_PREVENT_MULTIPLE_VALUES.AllowDBNull = false
+            Me.columnVKT_PREVENT_MULTIPLE_VALUES.DefaultValue = CType(true,Boolean)
         End Sub
         
         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
@@ -13766,7 +13767,11 @@ Partial Public Class MyDataset
          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
         Public Property MULTISELECT() As Boolean
             Get
-                Return CType(Me(Me.tableTBDD_INDEX_MAN.MULTISELECTColumn),Boolean)
+                Try 
+                    Return CType(Me(Me.tableTBDD_INDEX_MAN.MULTISELECTColumn),Boolean)
+                Catch e As Global.System.InvalidCastException
+                    Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte MULTISELECT in Tabelle TBDD_INDEX_MAN ist DBNull.", e)
+                End Try
             End Get
             Set
                 Me(Me.tableTBDD_INDEX_MAN.MULTISELECTColumn) = value
@@ -13901,6 +13906,18 @@ Partial Public Class MyDataset
             Me(Me.tableTBDD_INDEX_MAN.CHANGED_WHENColumn) = Global.System.Convert.DBNull
         End Sub
         
+        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
+         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
+        Public Function IsMULTISELECTNull() As Boolean
+            Return Me.IsNull(Me.tableTBDD_INDEX_MAN.MULTISELECTColumn)
+        End Function
+        
+        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
+         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
+        Public Sub SetMULTISELECTNull()
+            Me(Me.tableTBDD_INDEX_MAN.MULTISELECTColumn) = Global.System.Convert.DBNull
+        End Sub
+        
         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
         Public Function GetTBDD_INDEX_MAN_POSTPROCESSINGRows() As TBDD_INDEX_MAN_POSTPROCESSINGRow()
@@ -21557,7 +21574,7 @@ Namespace MyDatasetTableAdapters
                     ByVal SAVE_VALUE As Boolean,  _
                     ByVal MULTISELECT As Boolean,  _
                     ByVal VKT_ADD_ITEM As Boolean,  _
-                    ByVal VKT_PREVENT_MULTIPLE_VALUES As Boolean) As Integer
+                    ByVal VKT_PREVENT_MULTIPLE_VALUES As Global.System.Nullable(Of Boolean)) As Integer
             Me.Adapter.InsertCommand.Parameters(0).Value = CType(DOK_ID,Integer)
             If (NAME Is Nothing) Then
                 Throw New Global.System.ArgumentNullException("NAME")
@@ -21611,7 +21628,11 @@ Namespace MyDatasetTableAdapters
             Me.Adapter.InsertCommand.Parameters(14).Value = CType(SAVE_VALUE,Boolean)
             Me.Adapter.InsertCommand.Parameters(15).Value = CType(MULTISELECT,Boolean)
             Me.Adapter.InsertCommand.Parameters(16).Value = CType(VKT_ADD_ITEM,Boolean)
-            Me.Adapter.InsertCommand.Parameters(17).Value = CType(VKT_PREVENT_MULTIPLE_VALUES,Boolean)
+            If (VKT_PREVENT_MULTIPLE_VALUES.HasValue = true) Then
+                Me.Adapter.InsertCommand.Parameters(17).Value = CType(VKT_PREVENT_MULTIPLE_VALUES.Value,Boolean)
+            Else
+                Me.Adapter.InsertCommand.Parameters(17).Value = Global.System.DBNull.Value
+            End If
             Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State
             If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open)  _
                         <> Global.System.Data.ConnectionState.Open) Then
@@ -21647,7 +21668,7 @@ Namespace MyDatasetTableAdapters
                     ByVal CHANGED_WHO As String,  _
                     ByVal _OPTIONAL As Boolean,  _
                     ByVal SAVE_VALUE As Boolean,  _
-                    ByVal MULTISELECT As Boolean,  _
+                    ByVal MULTISELECT As Global.System.Nullable(Of Boolean),  _
                     ByVal VKT_ADD_ITEM As Boolean,  _
                     ByVal VKT_PREVENT_MULTIPLE_VALUES As Boolean,  _
                     ByVal Original_GUID As Integer,  _
@@ -21703,7 +21724,11 @@ Namespace MyDatasetTableAdapters
             End If
             Me.Adapter.UpdateCommand.Parameters(13).Value = CType(_OPTIONAL,Boolean)
             Me.Adapter.UpdateCommand.Parameters(14).Value = CType(SAVE_VALUE,Boolean)
-            Me.Adapter.UpdateCommand.Parameters(15).Value = CType(MULTISELECT,Boolean)
+            If (MULTISELECT.HasValue = true) Then
+                Me.Adapter.UpdateCommand.Parameters(15).Value = CType(MULTISELECT.Value,Boolean)
+            Else
+                Me.Adapter.UpdateCommand.Parameters(15).Value = Global.System.DBNull.Value
+            End If
             Me.Adapter.UpdateCommand.Parameters(16).Value = CType(VKT_ADD_ITEM,Boolean)
             Me.Adapter.UpdateCommand.Parameters(17).Value = CType(VKT_PREVENT_MULTIPLE_VALUES,Boolean)
             Me.Adapter.UpdateCommand.Parameters(18).Value = CType(Original_GUID,Integer)