MS Rework

This commit is contained in:
Digital Data - Marlon Schreiber
2018-07-20 13:03:41 +02:00
parent 2bdb7d1512
commit b081925128
39 changed files with 2747 additions and 1200 deletions

View File

@@ -225,7 +225,7 @@
ControlId = DirectCast(control.Tag, ClassControlMetadata).Id
Dim autoValue
Dim drarray() As DataRow = CURRENT_SQL_AUTO_VALUES_DT.Select("CONTROL_ID = " & ControlId)
Dim drarray() As DataRow = CURRENT_SQL_AUTO_VALUES_DT.Select("GUID = " & ControlId)
If drarray.Length > 0 Then
Dim ID = drarray(0)("CONNECTION_ID").ToString
If Not IsNothing(ID) Then