2.1.6.3 Final - ApplServer, frmAdminsitrationBugs etc
This commit is contained in:
108
app/DD_PM_WINDREAM/DD_DMSLiteDataSet.Designer.vb
generated
108
app/DD_PM_WINDREAM/DD_DMSLiteDataSet.Designer.vb
generated
@@ -1032,6 +1032,10 @@ Partial Public Class DD_DMSLiteDataSet
|
||||
|
||||
Private columnIF_VEKTOR_BEHAVIOUR As Global.System.Data.DataColumn
|
||||
|
||||
Private columnALLOW_NEW_VALUES As Global.System.Data.DataColumn
|
||||
|
||||
Private columnPREVENT_DUPLICATES As Global.System.Data.DataColumn
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
|
||||
Public Sub New()
|
||||
@@ -1163,6 +1167,22 @@ Partial Public Class DD_DMSLiteDataSet
|
||||
End Get
|
||||
End Property
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
|
||||
Public ReadOnly Property ALLOW_NEW_VALUESColumn() As Global.System.Data.DataColumn
|
||||
Get
|
||||
Return Me.columnALLOW_NEW_VALUES
|
||||
End Get
|
||||
End Property
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
|
||||
Public ReadOnly Property PREVENT_DUPLICATESColumn() As Global.System.Data.DataColumn
|
||||
Get
|
||||
Return Me.columnPREVENT_DUPLICATES
|
||||
End Get
|
||||
End Property
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0"), _
|
||||
Global.System.ComponentModel.Browsable(false)> _
|
||||
@@ -1200,9 +1220,9 @@ Partial Public Class DD_DMSLiteDataSet
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
|
||||
Public Overloads Function AddTBPM_PROFILE_FINAL_INDEXINGRow(ByVal INDEXNAME As String, ByVal VALUE As String, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date, ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Date, ByVal CONNECTION_ID As Short, ByVal SQL_COMMAND As String, ByVal DESCRIPTION As String, ByVal ACTIVE As Boolean, ByVal IF_VEKTOR_BEHAVIOUR As String) As TBPM_PROFILE_FINAL_INDEXINGRow
|
||||
Public Overloads Function AddTBPM_PROFILE_FINAL_INDEXINGRow(ByVal INDEXNAME As String, ByVal VALUE As String, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date, ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Date, ByVal CONNECTION_ID As Short, ByVal SQL_COMMAND As String, ByVal DESCRIPTION As String, ByVal ACTIVE As Boolean, ByVal IF_VEKTOR_BEHAVIOUR As String, ByVal ALLOW_NEW_VALUES As Boolean, ByVal PREVENT_DUPLICATES As Boolean) As TBPM_PROFILE_FINAL_INDEXINGRow
|
||||
Dim rowTBPM_PROFILE_FINAL_INDEXINGRow As TBPM_PROFILE_FINAL_INDEXINGRow = CType(Me.NewRow,TBPM_PROFILE_FINAL_INDEXINGRow)
|
||||
Dim columnValuesArray() As Object = New Object() {INDEXNAME, VALUE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, Nothing, CONNECTION_ID, SQL_COMMAND, DESCRIPTION, ACTIVE, IF_VEKTOR_BEHAVIOUR}
|
||||
Dim columnValuesArray() As Object = New Object() {INDEXNAME, VALUE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, Nothing, CONNECTION_ID, SQL_COMMAND, DESCRIPTION, ACTIVE, IF_VEKTOR_BEHAVIOUR, ALLOW_NEW_VALUES, PREVENT_DUPLICATES}
|
||||
rowTBPM_PROFILE_FINAL_INDEXINGRow.ItemArray = columnValuesArray
|
||||
Me.Rows.Add(rowTBPM_PROFILE_FINAL_INDEXINGRow)
|
||||
Return rowTBPM_PROFILE_FINAL_INDEXINGRow
|
||||
@@ -1243,6 +1263,8 @@ Partial Public Class DD_DMSLiteDataSet
|
||||
Me.columnDESCRIPTION = MyBase.Columns("DESCRIPTION")
|
||||
Me.columnACTIVE = MyBase.Columns("ACTIVE")
|
||||
Me.columnIF_VEKTOR_BEHAVIOUR = MyBase.Columns("IF_VEKTOR_BEHAVIOUR")
|
||||
Me.columnALLOW_NEW_VALUES = MyBase.Columns("ALLOW_NEW_VALUES")
|
||||
Me.columnPREVENT_DUPLICATES = MyBase.Columns("PREVENT_DUPLICATES")
|
||||
End Sub
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
@@ -1272,6 +1294,10 @@ Partial Public Class DD_DMSLiteDataSet
|
||||
MyBase.Columns.Add(Me.columnACTIVE)
|
||||
Me.columnIF_VEKTOR_BEHAVIOUR = New Global.System.Data.DataColumn("IF_VEKTOR_BEHAVIOUR", GetType(String), Nothing, Global.System.Data.MappingType.Element)
|
||||
MyBase.Columns.Add(Me.columnIF_VEKTOR_BEHAVIOUR)
|
||||
Me.columnALLOW_NEW_VALUES = New Global.System.Data.DataColumn("ALLOW_NEW_VALUES", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element)
|
||||
MyBase.Columns.Add(Me.columnALLOW_NEW_VALUES)
|
||||
Me.columnPREVENT_DUPLICATES = New Global.System.Data.DataColumn("PREVENT_DUPLICATES", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element)
|
||||
MyBase.Columns.Add(Me.columnPREVENT_DUPLICATES)
|
||||
Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnGUID}, true))
|
||||
Me.columnINDEXNAME.AllowDBNull = false
|
||||
Me.columnINDEXNAME.MaxLength = 100
|
||||
@@ -1296,8 +1322,10 @@ Partial Public Class DD_DMSLiteDataSet
|
||||
Me.columnACTIVE.AllowDBNull = false
|
||||
Me.columnACTIVE.DefaultValue = CType(true,Boolean)
|
||||
Me.columnIF_VEKTOR_BEHAVIOUR.AllowDBNull = false
|
||||
Me.columnIF_VEKTOR_BEHAVIOUR.DefaultValue = CType("",String)
|
||||
Me.columnIF_VEKTOR_BEHAVIOUR.DefaultValue = CType("Add",String)
|
||||
Me.columnIF_VEKTOR_BEHAVIOUR.MaxLength = 25
|
||||
Me.columnALLOW_NEW_VALUES.AllowDBNull = false
|
||||
Me.columnPREVENT_DUPLICATES.AllowDBNull = false
|
||||
End Sub
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
@@ -4602,12 +4630,12 @@ Partial Public Class DD_DMSLiteDataSet
|
||||
Me.columnACTIVE.AllowDBNull = false
|
||||
Me.columnACTIVE.DefaultValue = CType(false,Boolean)
|
||||
Me.columnWD_SEARCH.AllowDBNull = false
|
||||
Me.columnWD_SEARCH.DefaultValue = CType("",String)
|
||||
Me.columnWD_SEARCH.MaxLength = 500
|
||||
Me.columnNO_OF_DOCUMENTS.AllowDBNull = false
|
||||
Me.columnNO_OF_DOCUMENTS.DefaultValue = CType(0,Integer)
|
||||
Me.columnADDED_WHO.AllowDBNull = false
|
||||
Me.columnADDED_WHO.MaxLength = 30
|
||||
Me.columnADDED_WHEN.AllowDBNull = false
|
||||
Me.columnCHANGED_WHO.MaxLength = 30
|
||||
Me.columnFINAL_PROFILE.AllowDBNull = false
|
||||
Me.columnFINAL_PROFILE.DefaultValue = CType(false,Boolean)
|
||||
@@ -4616,6 +4644,7 @@ Partial Public Class DD_DMSLiteDataSet
|
||||
Me.columnTYPE.AllowDBNull = false
|
||||
Me.columnTYPE.DefaultValue = CType(1,Short)
|
||||
Me.columnWD_OBJECTTYPE.AllowDBNull = false
|
||||
Me.columnWD_OBJECTTYPE.DefaultValue = CType("",String)
|
||||
Me.columnWD_OBJECTTYPE.MaxLength = 200
|
||||
Me.columnSORT_BY_LATEST.AllowDBNull = false
|
||||
Me.columnSORT_BY_LATEST.DefaultValue = CType(true,Boolean)
|
||||
@@ -4626,7 +4655,7 @@ Partial Public Class DD_DMSLiteDataSet
|
||||
Me.columnLOG_INDEX.DefaultValue = CType("",String)
|
||||
Me.columnLOG_INDEX.MaxLength = 50
|
||||
Me.columnSQL_VIEW.AllowDBNull = false
|
||||
Me.columnSQL_VIEW.DefaultValue = CType("",String)
|
||||
Me.columnSQL_VIEW.DefaultValue = CType("select 'NONE'",String)
|
||||
Me.columnSQL_VIEW.MaxLength = 2147483647
|
||||
Me.columnANNOTATE_ALL_WORK_HISTORY_ENTRIES.AllowDBNull = false
|
||||
Me.columnANNOTATE_ALL_WORK_HISTORY_ENTRIES.DefaultValue = CType(false,Boolean)
|
||||
@@ -10131,6 +10160,28 @@ Partial Public Class DD_DMSLiteDataSet
|
||||
End Set
|
||||
End Property
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
|
||||
Public Property ALLOW_NEW_VALUES() As Boolean
|
||||
Get
|
||||
Return CType(Me(Me.tableTBPM_PROFILE_FINAL_INDEXING.ALLOW_NEW_VALUESColumn),Boolean)
|
||||
End Get
|
||||
Set
|
||||
Me(Me.tableTBPM_PROFILE_FINAL_INDEXING.ALLOW_NEW_VALUESColumn) = value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
|
||||
Public Property PREVENT_DUPLICATES() As Boolean
|
||||
Get
|
||||
Return CType(Me(Me.tableTBPM_PROFILE_FINAL_INDEXING.PREVENT_DUPLICATESColumn),Boolean)
|
||||
End Get
|
||||
Set
|
||||
Me(Me.tableTBPM_PROFILE_FINAL_INDEXING.PREVENT_DUPLICATESColumn) = value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
|
||||
Public Function IsCHANGED_WHONull() As Boolean
|
||||
@@ -11709,7 +11760,11 @@ Partial Public Class DD_DMSLiteDataSet
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
|
||||
Public Property ADDED_WHEN() As Date
|
||||
Get
|
||||
Return CType(Me(Me.tableTBPM_PROFILE.ADDED_WHENColumn),Date)
|
||||
Try
|
||||
Return CType(Me(Me.tableTBPM_PROFILE.ADDED_WHENColumn),Date)
|
||||
Catch e As Global.System.InvalidCastException
|
||||
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ADDED_WHEN in Tabelle TBPM_PROFILE ist DBNull.", e)
|
||||
End Try
|
||||
End Get
|
||||
Set
|
||||
Me(Me.tableTBPM_PROFILE.ADDED_WHENColumn) = value
|
||||
@@ -11935,6 +11990,18 @@ Partial Public Class DD_DMSLiteDataSet
|
||||
Me(Me.tableTBPM_PROFILE.DESCRIPTIONColumn) = 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 IsADDED_WHENNull() As Boolean
|
||||
Return Me.IsNull(Me.tableTBPM_PROFILE.ADDED_WHENColumn)
|
||||
End Function
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
|
||||
Public Sub SetADDED_WHENNull()
|
||||
Me(Me.tableTBPM_PROFILE.ADDED_WHENColumn) = 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 IsCHANGED_WHONull() As Boolean
|
||||
@@ -16175,6 +16242,8 @@ Namespace DD_DMSLiteDataSetTableAdapters
|
||||
tableMapping.ColumnMappings.Add("DESCRIPTION", "DESCRIPTION")
|
||||
tableMapping.ColumnMappings.Add("ACTIVE", "ACTIVE")
|
||||
tableMapping.ColumnMappings.Add("IF_VEKTOR_BEHAVIOUR", "IF_VEKTOR_BEHAVIOUR")
|
||||
tableMapping.ColumnMappings.Add("ALLOW_NEW_VALUES", "ALLOW_NEW_VALUES")
|
||||
tableMapping.ColumnMappings.Add("PREVENT_DUPLICATES", "PREVENT_DUPLICATES")
|
||||
Me._adapter.TableMappings.Add(tableMapping)
|
||||
Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand()
|
||||
Me._adapter.DeleteCommand.Connection = Me.Connection
|
||||
@@ -16220,10 +16289,11 @@ Namespace DD_DMSLiteDataSetTableAdapters
|
||||
"ROFILE_FINAL_INDEXING.CHANGED_WHEN, TBPM_PROFILE_FINAL_INDEXING.GUID, TBPM_PROFI"& _
|
||||
"LE_FINAL_INDEXING.CONNECTION_ID, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" TBPM_PROFILE_FINAL_I"& _
|
||||
"NDEXING.SQL_COMMAND, TBPM_PROFILE_FINAL_INDEXING.DESCRIPTION, TBPM_PROFILE_FINAL"& _
|
||||
"_INDEXING.ACTIVE, TBPM_PROFILE_FINAL_INDEXING.IF_VEKTOR_BEHAVIOUR"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM "& _
|
||||
" TBPM_PROFILE_FINAL_INDEXING INNER JOIN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" TBPM_PROFILE"& _
|
||||
" ON TBPM_PROFILE_FINAL_INDEXING.PROFIL_ID = TBPM_PROFILE.GUID"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (TBP"& _
|
||||
"M_PROFILE.NAME = @name)"
|
||||
"_INDEXING.ACTIVE, TBPM_PROFILE_FINAL_INDEXING.IF_VEKTOR_BEHAVIOUR, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _
|
||||
" TBPM_PROFILE_FINAL_INDEXING.ALLOW_NEW_VALUES, TBPM_PROFILE_FINAL_I"& _
|
||||
"NDEXING.PREVENT_DUPLICATES"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBPM_PROFILE_FINAL_INDEXING INNER JO"& _
|
||||
"IN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" TBPM_PROFILE ON TBPM_PROFILE_FINAL_INDEXING.PROFIL_"& _
|
||||
"ID = TBPM_PROFILE.GUID"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (TBPM_PROFILE.NAME = @name)"
|
||||
Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text
|
||||
Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@name", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "NAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
||||
Me._commandCollection(1) = New Global.System.Data.SqlClient.SqlCommand()
|
||||
@@ -16279,10 +16349,12 @@ Namespace DD_DMSLiteDataSetTableAdapters
|
||||
"G.CHANGED_WHO, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" TBPM_PROFILE_FINAL_INDEXING.GUID, TBPM"& _
|
||||
"_PROFILE_FINAL_INDEXING.INDEXNAME, TBPM_PROFILE_FINAL_INDEXING.VALUE, TBPM_PROFI"& _
|
||||
"LE_FINAL_INDEXING.SQL_COMMAND, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" TBPM_PROFILE_FINAL_IND"& _
|
||||
"EXING.CONNECTION_ID, TBPM_PROFILE_FINAL_INDEXING.IF_VEKTOR_BEHAVIOUR"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM "& _
|
||||
" TBPM_PROFILE_FINAL_INDEXING INNER JOIN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" TBPM_PROF"& _
|
||||
"ILE ON TBPM_PROFILE_FINAL_INDEXING.PROFIL_ID = TBPM_PROFILE.GUID"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE ("& _
|
||||
"TBPM_PROFILE.GUID = @ID)"
|
||||
"EXING.CONNECTION_ID, TBPM_PROFILE_FINAL_INDEXING.IF_VEKTOR_BEHAVIOUR, TBPM_PROFI"& _
|
||||
"LE_FINAL_INDEXING.ALLOW_NEW_VALUES, TBPM_PROFILE_FINAL_INDEXING.DESCRIPTION, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _
|
||||
" TBPM_PROFILE_FINAL_INDEXING.ACTIVE, TBPM_PROFILE_FINAL_I"& _
|
||||
"NDEXING.PREVENT_DUPLICATES"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBPM_PROFILE_FINAL_INDEXING INNER JO"& _
|
||||
"IN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" TBPM_PROFILE ON TBPM_PROFILE_FINAL_INDEXING.PROFIL_"& _
|
||||
"ID = TBPM_PROFILE.GUID"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (TBPM_PROFILE.GUID = @ID)"
|
||||
Me._commandCollection(6).CommandType = Global.System.Data.CommandType.Text
|
||||
Me._commandCollection(6).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
||||
End Sub
|
||||
@@ -20040,7 +20112,7 @@ Namespace DD_DMSLiteDataSetTableAdapters
|
||||
ByVal Original_WD_SEARCH As String, _
|
||||
ByVal Original_NO_OF_DOCUMENTS As Integer, _
|
||||
ByVal Original_ADDED_WHO As String, _
|
||||
ByVal Original_ADDED_WHEN As Date, _
|
||||
ByVal Original_ADDED_WHEN As Global.System.Nullable(Of Date), _
|
||||
ByVal Original_CHANGED_WHO As String, _
|
||||
ByVal Original_CHANGED_WHEN As Global.System.Nullable(Of Date), _
|
||||
ByVal Original_FINAL_PROFILE As Boolean, _
|
||||
@@ -20085,7 +20157,11 @@ Namespace DD_DMSLiteDataSetTableAdapters
|
||||
Else
|
||||
Me.Adapter.DeleteCommand.Parameters(9).Value = CType(Original_ADDED_WHO,String)
|
||||
End If
|
||||
Me.Adapter.DeleteCommand.Parameters(10).Value = CType(Original_ADDED_WHEN,Date)
|
||||
If (Original_ADDED_WHEN.HasValue = true) Then
|
||||
Me.Adapter.DeleteCommand.Parameters(10).Value = CType(Original_ADDED_WHEN.Value,Date)
|
||||
Else
|
||||
Me.Adapter.DeleteCommand.Parameters(10).Value = Global.System.DBNull.Value
|
||||
End If
|
||||
If (Original_CHANGED_WHO Is Nothing) Then
|
||||
Me.Adapter.DeleteCommand.Parameters(11).Value = CType(1,Object)
|
||||
Me.Adapter.DeleteCommand.Parameters(12).Value = Global.System.DBNull.Value
|
||||
|
||||
Reference in New Issue
Block a user