MS

GUIs.ZooFlow/Administration/frmAdmin_IDBAttribute.vb

@@ -21,7 +21,10 @@
             TBWH_ATTRIBUTE_TYPETableAdapter.Fill(DSIDB_Stammdaten.TBWH_ATTRIBUTE_TYPE)
             VWIDB_BE_ATTRIBUTETableAdapter.Connection.ConnectionString = My.DatabaseIDB.CurrentSQLConnectionString
             VWIDB_BE_ATTRIBUTETableAdapter.FillByAttributeId(DSIDB_Stammdaten.VWIDB_BE_ATTRIBUTE, PrimaryKey, 1)
-
+            If IsInsert Then
+                VWIDB_BE_ATTRIBUTEBindingSource.AddNew()
+                DSIDB_Stammdaten.VWIDB_BE_ATTRIBUTE.ADDED_WHOColumn.DefaultValue = My.Application.User.UserName
+            End If
         Catch ex As Exception
             ShowErrorMessage(ex)
         End Try
@@ -29,7 +32,6 @@
 
     Private Sub BarButtonItem2_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem2.ItemClick
         ResetMessages()
-
         If SaveData() And HasChanges Then
             ShowStatus("Attribute saved!")
         End If
@@ -82,7 +84,6 @@
                          "(TITLE, TYP_ID, VIEW_SEQUENCE, VIEW_VISIBLE, ADDED_WHO,COMMENT) " &
                          $"VALUES ('{TextEdit2.Text}',{ComboBoxEdit1.EditValue},{SpinEdit1.Value},'{CheckEdit2.Checked}','{My.Application.User.UserName}', '{TextEdit3.Text}')"
 
-
                 If My.DatabaseIDB.ExecuteNonQuery(oInsert) = True Then
                     IsInsert = False
                 Else