MS

GUIs.ZooFlow/Administration/frmAdmin_CWProfile.vb

@@ -1,7 +1,7 @@
 Imports DigitalData.Modules.Logging
 
 Public Class frmAdmin_CWProfile
-    Inherits frmAdmin_Base
+    'Inherits frmAdmin_Base
     Implements frmAdmin_Interface
 
     Public Property PrimaryKey As Integer Implements frmAdmin_Interface.PrimaryKey

GUIs.ZooFlow/Administration/frmAdmin_IDBAttribute.vb

@@ -75,4 +75,9 @@ Public Class frmAdmin_IDBAttribute
             Return False
         End Try
     End Function
+    Private Sub Update_Datasource()
+        Dim oupdate = $"UPDATE       TBIDB_ATTRIBUTE
+SET                TITLE = '@TITLE', TYP_ID = @TYP_ID, MULTI_CONTEXT = @MULTI_CONTEXT, VIEW_SEQUENCE = @VIEW_SEQUENCE, VIEW_VISIBLE = @VIEW_VISIBLE, COMMENT = @COMMENT
+WHERE        (GUID = @GUID)"
+    End Sub
 End Class