prepare release and fix marvman's bugs

This commit is contained in:
Developer02 Digital Data
2019-10-15 16:16:50 +02:00
parent 341c719777
commit 80029dcb99
13 changed files with 653 additions and 123 deletions

View File

@@ -53,6 +53,8 @@ Partial Public Class MyDataset
Private tableTBWH_PROFILE_TYPE As TBWH_PROFILE_TYPEDataTable
Private tableTBWH_SEARCH_POSITION As TBWH_SEARCH_POSITIONDataTable
Private relationFK_TBCW_PROF_DATA_SEARCH_PROF_IF As Global.System.Data.DataRelation
Private relationFK_TBCW_PROF_DOC_SEARCH_PROF_IF As Global.System.Data.DataRelation
@@ -132,6 +134,9 @@ Partial Public Class MyDataset
If (Not (ds.Tables("TBWH_PROFILE_TYPE")) Is Nothing) Then
MyBase.Tables.Add(New TBWH_PROFILE_TYPEDataTable(ds.Tables("TBWH_PROFILE_TYPE")))
End If
If (Not (ds.Tables("TBWH_SEARCH_POSITION")) Is Nothing) Then
MyBase.Tables.Add(New TBWH_SEARCH_POSITIONDataTable(ds.Tables("TBWH_SEARCH_POSITION")))
End If
Me.DataSetName = ds.DataSetName
Me.Prefix = ds.Prefix
Me.Namespace = ds.Namespace
@@ -289,6 +294,16 @@ Partial Public Class MyDataset
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"), _
Global.System.ComponentModel.Browsable(false), _
Global.System.ComponentModel.DesignerSerializationVisibility(Global.System.ComponentModel.DesignerSerializationVisibility.Content)> _
Public ReadOnly Property TBWH_SEARCH_POSITION() As TBWH_SEARCH_POSITIONDataTable
Get
Return Me.tableTBWH_SEARCH_POSITION
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"), _
Global.System.ComponentModel.BrowsableAttribute(true), _
@@ -398,6 +413,9 @@ Partial Public Class MyDataset
If (Not (ds.Tables("TBWH_PROFILE_TYPE")) Is Nothing) Then
MyBase.Tables.Add(New TBWH_PROFILE_TYPEDataTable(ds.Tables("TBWH_PROFILE_TYPE")))
End If
If (Not (ds.Tables("TBWH_SEARCH_POSITION")) Is Nothing) Then
MyBase.Tables.Add(New TBWH_SEARCH_POSITIONDataTable(ds.Tables("TBWH_SEARCH_POSITION")))
End If
Me.DataSetName = ds.DataSetName
Me.Prefix = ds.Prefix
Me.Namespace = ds.Namespace
@@ -514,6 +532,12 @@ Partial Public Class MyDataset
Me.tableTBWH_PROFILE_TYPE.InitVars
End If
End If
Me.tableTBWH_SEARCH_POSITION = CType(MyBase.Tables("TBWH_SEARCH_POSITION"),TBWH_SEARCH_POSITIONDataTable)
If (initTable = true) Then
If (Not (Me.tableTBWH_SEARCH_POSITION) Is Nothing) Then
Me.tableTBWH_SEARCH_POSITION.InitVars
End If
End If
Me.relationFK_TBCW_PROF_DATA_SEARCH_PROF_IF = Me.Relations("FK_TBCW_PROF_DATA_SEARCH_PROF_IF")
Me.relationFK_TBCW_PROF_DOC_SEARCH_PROF_IF = Me.Relations("FK_TBCW_PROF_DOC_SEARCH_PROF_IF")
Me.relationFK_WINDOW_ID = Me.Relations("FK_WINDOW_ID")
@@ -556,6 +580,8 @@ Partial Public Class MyDataset
MyBase.Tables.Add(Me.tableTBWH_GROUP)
Me.tableTBWH_PROFILE_TYPE = New TBWH_PROFILE_TYPEDataTable()
MyBase.Tables.Add(Me.tableTBWH_PROFILE_TYPE)
Me.tableTBWH_SEARCH_POSITION = New TBWH_SEARCH_POSITIONDataTable()
MyBase.Tables.Add(Me.tableTBWH_SEARCH_POSITION)
Me.relationFK_TBCW_PROF_DATA_SEARCH_PROF_IF = New Global.System.Data.DataRelation("FK_TBCW_PROF_DATA_SEARCH_PROF_IF", New Global.System.Data.DataColumn() {Me.tableTBCW_PROFILES.GUIDColumn}, New Global.System.Data.DataColumn() {Me.tableTBCW_PROF_DATA_SEARCH.PROFILE_IDColumn}, false)
Me.Relations.Add(Me.relationFK_TBCW_PROF_DATA_SEARCH_PROF_IF)
Me.relationFK_TBCW_PROF_DOC_SEARCH_PROF_IF = New Global.System.Data.DataRelation("FK_TBCW_PROF_DOC_SEARCH_PROF_IF", New Global.System.Data.DataColumn() {Me.tableTBCW_PROFILES.GUIDColumn}, New Global.System.Data.DataColumn() {Me.tableTBCW_PROF_DOC_SEARCH.PROFILE_IDColumn}, false)
@@ -650,6 +676,12 @@ Partial Public Class MyDataset
Return false
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
Private Function ShouldSerializeTBWH_SEARCH_POSITION() As Boolean
Return false
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
Private Sub SchemaChanged(ByVal sender As Object, ByVal e As Global.System.ComponentModel.CollectionChangeEventArgs)
@@ -750,6 +782,9 @@ Partial Public Class MyDataset
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
Public Delegate Sub TBWH_PROFILE_TYPERowChangeEventHandler(ByVal sender As Object, ByVal e As TBWH_PROFILE_TYPERowChangeEvent)
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
Public Delegate Sub TBWH_SEARCH_POSITIONRowChangeEventHandler(ByVal sender As Object, ByVal e As TBWH_SEARCH_POSITIONRowChangeEvent)
'''<summary>
'''Represents the strongly named DataTable class.
'''</summary>
@@ -5817,6 +5852,271 @@ Partial Public Class MyDataset
End Function
End Class
'''<summary>
'''Represents the strongly named DataTable class.
'''</summary>
<Global.System.Serializable(), _
Global.System.Xml.Serialization.XmlSchemaProviderAttribute("GetTypedTableSchema")> _
Partial Public Class TBWH_SEARCH_POSITIONDataTable
Inherits Global.System.Data.TypedTableBase(Of TBWH_SEARCH_POSITIONRow)
Private columnPOSITION_INDEX As Global.System.Data.DataColumn
Private columnPOSITION_NAME As Global.System.Data.DataColumn
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
Public Sub New()
MyBase.New
Me.TableName = "TBWH_SEARCH_POSITION"
Me.BeginInit
Me.InitClass
Me.EndInit
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
Friend Sub New(ByVal table As Global.System.Data.DataTable)
MyBase.New
Me.TableName = table.TableName
If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then
Me.CaseSensitive = table.CaseSensitive
End If
If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then
Me.Locale = table.Locale
End If
If (table.Namespace <> table.DataSet.Namespace) Then
Me.Namespace = table.Namespace
End If
Me.Prefix = table.Prefix
Me.MinimumCapacity = table.MinimumCapacity
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext)
MyBase.New(info, context)
Me.InitVars
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
Public ReadOnly Property POSITION_INDEXColumn() As Global.System.Data.DataColumn
Get
Return Me.columnPOSITION_INDEX
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
Public ReadOnly Property POSITION_NAMEColumn() As Global.System.Data.DataColumn
Get
Return Me.columnPOSITION_NAME
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"), _
Global.System.ComponentModel.Browsable(false)> _
Public ReadOnly Property Count() As Integer
Get
Return Me.Rows.Count
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
Public Default ReadOnly Property Item(ByVal index As Integer) As TBWH_SEARCH_POSITIONRow
Get
Return CType(Me.Rows(index),TBWH_SEARCH_POSITIONRow)
End Get
End Property
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
Public Event TBWH_SEARCH_POSITIONRowChanging As TBWH_SEARCH_POSITIONRowChangeEventHandler
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
Public Event TBWH_SEARCH_POSITIONRowChanged As TBWH_SEARCH_POSITIONRowChangeEventHandler
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
Public Event TBWH_SEARCH_POSITIONRowDeleting As TBWH_SEARCH_POSITIONRowChangeEventHandler
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
Public Event TBWH_SEARCH_POSITIONRowDeleted As TBWH_SEARCH_POSITIONRowChangeEventHandler
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
Public Overloads Sub AddTBWH_SEARCH_POSITIONRow(ByVal row As TBWH_SEARCH_POSITIONRow)
Me.Rows.Add(row)
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
Public Overloads Function AddTBWH_SEARCH_POSITIONRow(ByVal POSITION_INDEX As String, ByVal POSITION_NAME As String) As TBWH_SEARCH_POSITIONRow
Dim rowTBWH_SEARCH_POSITIONRow As TBWH_SEARCH_POSITIONRow = CType(Me.NewRow,TBWH_SEARCH_POSITIONRow)
Dim columnValuesArray() As Object = New Object() {POSITION_INDEX, POSITION_NAME}
rowTBWH_SEARCH_POSITIONRow.ItemArray = columnValuesArray
Me.Rows.Add(rowTBWH_SEARCH_POSITIONRow)
Return rowTBWH_SEARCH_POSITIONRow
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
Public Overrides Function Clone() As Global.System.Data.DataTable
Dim cln As TBWH_SEARCH_POSITIONDataTable = CType(MyBase.Clone,TBWH_SEARCH_POSITIONDataTable)
cln.InitVars
Return cln
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
Protected Overrides Function CreateInstance() As Global.System.Data.DataTable
Return New TBWH_SEARCH_POSITIONDataTable()
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
Friend Sub InitVars()
Me.columnPOSITION_INDEX = MyBase.Columns("POSITION_INDEX")
Me.columnPOSITION_NAME = MyBase.Columns("POSITION_NAME")
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
Private Sub InitClass()
Me.columnPOSITION_INDEX = New Global.System.Data.DataColumn("POSITION_INDEX", GetType(String), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnPOSITION_INDEX)
Me.columnPOSITION_NAME = New Global.System.Data.DataColumn("POSITION_NAME", GetType(String), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnPOSITION_NAME)
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
Public Function NewTBWH_SEARCH_POSITIONRow() As TBWH_SEARCH_POSITIONRow
Return CType(Me.NewRow,TBWH_SEARCH_POSITIONRow)
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow
Return New TBWH_SEARCH_POSITIONRow(builder)
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
Protected Overrides Function GetRowType() As Global.System.Type
Return GetType(TBWH_SEARCH_POSITIONRow)
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs)
MyBase.OnRowChanged(e)
If (Not (Me.TBWH_SEARCH_POSITIONRowChangedEvent) Is Nothing) Then
RaiseEvent TBWH_SEARCH_POSITIONRowChanged(Me, New TBWH_SEARCH_POSITIONRowChangeEvent(CType(e.Row,TBWH_SEARCH_POSITIONRow), e.Action))
End If
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs)
MyBase.OnRowChanging(e)
If (Not (Me.TBWH_SEARCH_POSITIONRowChangingEvent) Is Nothing) Then
RaiseEvent TBWH_SEARCH_POSITIONRowChanging(Me, New TBWH_SEARCH_POSITIONRowChangeEvent(CType(e.Row,TBWH_SEARCH_POSITIONRow), e.Action))
End If
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs)
MyBase.OnRowDeleted(e)
If (Not (Me.TBWH_SEARCH_POSITIONRowDeletedEvent) Is Nothing) Then
RaiseEvent TBWH_SEARCH_POSITIONRowDeleted(Me, New TBWH_SEARCH_POSITIONRowChangeEvent(CType(e.Row,TBWH_SEARCH_POSITIONRow), e.Action))
End If
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs)
MyBase.OnRowDeleting(e)
If (Not (Me.TBWH_SEARCH_POSITIONRowDeletingEvent) Is Nothing) Then
RaiseEvent TBWH_SEARCH_POSITIONRowDeleting(Me, New TBWH_SEARCH_POSITIONRowChangeEvent(CType(e.Row,TBWH_SEARCH_POSITIONRow), e.Action))
End If
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
Public Sub RemoveTBWH_SEARCH_POSITIONRow(ByVal row As TBWH_SEARCH_POSITIONRow)
Me.Rows.Remove(row)
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType
Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType()
Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence()
Dim ds As MyDataset = New MyDataset()
Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
any1.Namespace = "http://www.w3.org/2001/XMLSchema"
any1.MinOccurs = New Decimal(0)
any1.MaxOccurs = Decimal.MaxValue
any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
sequence.Items.Add(any1)
Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1"
any2.MinOccurs = New Decimal(1)
any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
sequence.Items.Add(any2)
Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()
attribute1.Name = "namespace"
attribute1.FixedValue = ds.Namespace
type.Attributes.Add(attribute1)
Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()
attribute2.Name = "tableTypeName"
attribute2.FixedValue = "TBWH_SEARCH_POSITIONDataTable"
type.Attributes.Add(attribute2)
type.Particle = sequence
Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable
If xs.Contains(dsSchema.TargetNamespace) Then
Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
Try
Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing
dsSchema.Write(s1)
Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator
Do While schemas.MoveNext
schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema)
s2.SetLength(0)
schema.Write(s2)
If (s1.Length = s2.Length) Then
s1.Position = 0
s2.Position = 0
Do While ((s1.Position <> s1.Length) _
AndAlso (s1.ReadByte = s2.ReadByte))
Loop
If (s1.Position = s1.Length) Then
Return type
End If
End If
Loop
Finally
If (Not (s1) Is Nothing) Then
s1.Close
End If
If (Not (s2) Is Nothing) Then
s2.Close
End If
End Try
End If
xs.Add(dsSchema)
Return type
End Function
End Class
'''<summary>
'''Represents strongly named DataRow class.
'''</summary>
@@ -8013,6 +8313,76 @@ Partial Public Class MyDataset
End Sub
End Class
'''<summary>
'''Represents strongly named DataRow class.
'''</summary>
Partial Public Class TBWH_SEARCH_POSITIONRow
Inherits Global.System.Data.DataRow
Private tableTBWH_SEARCH_POSITION As TBWH_SEARCH_POSITIONDataTable
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder)
MyBase.New(rb)
Me.tableTBWH_SEARCH_POSITION = CType(Me.Table,TBWH_SEARCH_POSITIONDataTable)
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
Public Property POSITION_INDEX() As String
Get
Try
Return CType(Me(Me.tableTBWH_SEARCH_POSITION.POSITION_INDEXColumn),String)
Catch e As Global.System.InvalidCastException
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte POSITION_INDEX in Tabelle TBWH_SEARCH_POSITION ist DBNull.", e)
End Try
End Get
Set
Me(Me.tableTBWH_SEARCH_POSITION.POSITION_INDEXColumn) = value
End Set
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
Public Property POSITION_NAME() As String
Get
Try
Return CType(Me(Me.tableTBWH_SEARCH_POSITION.POSITION_NAMEColumn),String)
Catch e As Global.System.InvalidCastException
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte POSITION_NAME in Tabelle TBWH_SEARCH_POSITION ist DBNull.", e)
End Try
End Get
Set
Me(Me.tableTBWH_SEARCH_POSITION.POSITION_NAMEColumn) = value
End Set
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
Public Function IsPOSITION_INDEXNull() As Boolean
Return Me.IsNull(Me.tableTBWH_SEARCH_POSITION.POSITION_INDEXColumn)
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
Public Sub SetPOSITION_INDEXNull()
Me(Me.tableTBWH_SEARCH_POSITION.POSITION_INDEXColumn) = 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 IsPOSITION_NAMENull() As Boolean
Return Me.IsNull(Me.tableTBWH_SEARCH_POSITION.POSITION_NAMEColumn)
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
Public Sub SetPOSITION_NAMENull()
Me(Me.tableTBWH_SEARCH_POSITION.POSITION_NAMEColumn) = Global.System.Convert.DBNull
End Sub
End Class
'''<summary>
'''Row event argument class
'''</summary>
@@ -8516,6 +8886,42 @@ Partial Public Class MyDataset
End Get
End Property
End Class
'''<summary>
'''Row event argument class
'''</summary>
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
Public Class TBWH_SEARCH_POSITIONRowChangeEvent
Inherits Global.System.EventArgs
Private eventRow As TBWH_SEARCH_POSITIONRow
Private eventAction As Global.System.Data.DataRowAction
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
Public Sub New(ByVal row As TBWH_SEARCH_POSITIONRow, ByVal action As Global.System.Data.DataRowAction)
MyBase.New
Me.eventRow = row
Me.eventAction = action
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
Public ReadOnly Property Row() As TBWH_SEARCH_POSITIONRow
Get
Return Me.eventRow
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
Public ReadOnly Property Action() As Global.System.Data.DataRowAction
Get
Return Me.eventAction
End Get
End Property
End Class
End Class
Namespace MyDatasetTableAdapters