remove scrollbar in frmIndex, fix multiple saved values in lookup control, remove version tag button, fix final messagebox filename, allow null for wd index, delete skipped files

This commit is contained in:
Jonathan Jenne
2020-04-02 13:21:38 +02:00
parent b2c7299d2f
commit 29b29059a9
12 changed files with 804 additions and 872 deletions

View File

@@ -3563,7 +3563,6 @@ 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)
@@ -13049,7 +13048,11 @@ Partial Public Class MyDataset
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
Public Property WD_INDEX() As String
Get
Return CType(Me(Me.tableTBDD_INDEX_MAN.WD_INDEXColumn),String)
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
End Get
Set
Me(Me.tableTBDD_INDEX_MAN.WD_INDEXColumn) = value
@@ -13304,6 +13307,18 @@ 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
@@ -20932,7 +20947,7 @@ Namespace MyDatasetTableAdapters
Me.Adapter.InsertCommand.Parameters(1).Value = CType(NAME,String)
End If
If (WD_INDEX Is Nothing) Then
Throw New Global.System.ArgumentNullException("WD_INDEX")
Me.Adapter.InsertCommand.Parameters(2).Value = Global.System.DBNull.Value
Else
Me.Adapter.InsertCommand.Parameters(2).Value = CType(WD_INDEX,String)
End If
@@ -21030,7 +21045,7 @@ Namespace MyDatasetTableAdapters
Me.Adapter.UpdateCommand.Parameters(1).Value = CType(NAME,String)
End If
If (WD_INDEX Is Nothing) Then
Throw New Global.System.ArgumentNullException("WD_INDEX")
Me.Adapter.UpdateCommand.Parameters(2).Value = Global.System.DBNull.Value
Else
Me.Adapter.UpdateCommand.Parameters(2).Value = CType(WD_INDEX,String)
End If