MS

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