Don't allow null for manual index: windream index

This commit is contained in:
Jonathan Jenne
2020-03-20 10:59:10 +01:00
parent b510c0c95d
commit 003d34cf62
4 changed files with 106 additions and 144 deletions

View File

@@ -3563,6 +3563,7 @@ Partial Public Class MyDataset
Me.columnDOK_ID.AllowDBNull = false
Me.columnNAME.AllowDBNull = false
Me.columnNAME.MaxLength = 50
Me.columnWD_INDEX.AllowDBNull = false
Me.columnWD_INDEX.MaxLength = 50
Me.columnCOMMENT.MaxLength = 150
Me.columnDATATYPE.DefaultValue = CType("VARCHAR",String)
@@ -13048,11 +13049,7 @@ Partial Public Class MyDataset
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
Public Property WD_INDEX() As String
Get
Try
Return CType(Me(Me.tableTBDD_INDEX_MAN.WD_INDEXColumn),String)
Catch e As Global.System.InvalidCastException
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte WD_INDEX in Tabelle TBDD_INDEX_MAN ist DBNull.", e)
End Try
Return CType(Me(Me.tableTBDD_INDEX_MAN.WD_INDEXColumn),String)
End Get
Set
Me(Me.tableTBDD_INDEX_MAN.WD_INDEXColumn) = value
@@ -13307,18 +13304,6 @@ Partial Public Class MyDataset
End Set
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
Public Function IsWD_INDEXNull() As Boolean
Return Me.IsNull(Me.tableTBDD_INDEX_MAN.WD_INDEXColumn)
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
Public Sub SetWD_INDEXNull()
Me(Me.tableTBDD_INDEX_MAN.WD_INDEXColumn) = Global.System.Convert.DBNull
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
Public Function IsCOMMENTNull() As Boolean
@@ -20947,7 +20932,7 @@ Namespace MyDatasetTableAdapters
Me.Adapter.InsertCommand.Parameters(1).Value = CType(NAME,String)
End If
If (WD_INDEX Is Nothing) Then
Me.Adapter.InsertCommand.Parameters(2).Value = Global.System.DBNull.Value
Throw New Global.System.ArgumentNullException("WD_INDEX")
Else
Me.Adapter.InsertCommand.Parameters(2).Value = CType(WD_INDEX,String)
End If
@@ -21045,7 +21030,7 @@ Namespace MyDatasetTableAdapters
Me.Adapter.UpdateCommand.Parameters(1).Value = CType(NAME,String)
End If
If (WD_INDEX Is Nothing) Then
Me.Adapter.UpdateCommand.Parameters(2).Value = Global.System.DBNull.Value
Throw New Global.System.ArgumentNullException("WD_INDEX")
Else
Me.Adapter.UpdateCommand.Parameters(2).Value = CType(WD_INDEX,String)
End If