MS_05042016

app/DD-Record-Organiser/frmTask_Management.vb

@@ -42,7 +42,6 @@
             ClassWindowLocation.LoadFormLocationSize(Me, 1, CURRENT_SCREEN_ID, "frmTaskmanagement")
             Me.TBPMO_WORKFLOW_TASK_STATETableAdapter.Connection.ConnectionString = MyConnectionString
             VWPMO_GUI_ENTITYTableAdapter.Connection.ConnectionString = MyConnectionString
-            TBPMO_WORKFLOW_FORMTableAdapter.Connection.ConnectionString = MyConnectionString
             TBPMO_WORKFLOWTableAdapter.Connection.ConnectionString = MyConnectionString
             Try
                 Me.VWPMO_GUI_ENTITYTableAdapter.Fill(Me.DD_DMSDataSet.VWPMO_GUI_ENTITY)
@@ -186,21 +185,6 @@
     Private Sub frmTaskmanagement_Shown(sender As Object, e As EventArgs) Handles Me.Shown
         formloaded = True
     End Sub
-    Private Sub ToolStripButton14_Click(sender As Object, e As EventArgs)
-        Try
-            Me.TBPMO_WORKFLOW_FORMBindingSource.EndEdit()
-            If DD_DMSDataSet.TBPMO_WORKFLOW_FORM.GetChanges Is Nothing = False Then
-                Me.TBPMO_WORKFLOW_FORMTableAdapter.Update(DD_DMSDataSet.TBPMO_WORKFLOW_FORM)
-                toolstriplabel(True, "Änderungen erfolgreich gespeichert - " & Now)
-            Else
-                toolstriplabel(False, "")
-            End If
-        Catch ex As Exception
-            MsgBox("Error in Save TBPMO_WORKFLOW_FORM:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
-        End Try
-
-    End Sub
-
     Private Sub ToolStripButton18_Click(sender As Object, e As EventArgs) Handles ToolStripButton18.Click
         Save_State()
     End Sub
@@ -326,7 +310,6 @@
             'If ListBoxEntityWorkflow.SelectedIndex <> -1 Then
             '    Dim ID = ListBoxEntityWorkflow.SelectedValue
 
-            '    Dim del As String = "DELETE FROM TBPMO_WORKFLOW_FORM WHERE GUID = " & ID
             '    If ClassDatabase.Execute_non_Query(del) = True Then
             '        Dim txt As String = "Der Datensatz wurde erfolgreich gelöscht - " & Now
             '        If USER_LANGUAGE <> "de-DE" Then
@@ -369,6 +352,7 @@
             Dim DT As DataTable = ClassDatabase.Return_Datatable(sql, "Get Entity-States")
             DataGridView1.DataSource = DT
             lblSelection.Text = txtlbl
+            DataGridView1.AutoSizeColumnsMode = DataGridViewAutoSizeColumnsMode.AllCells
             'ListBoxEntity_State.DataSource = DT
             'ListBoxEntity_State.DisplayMember = DT.Columns(1).ColumnName
             'ListBoxEntity_State.ValueMember = DT.Columns(0).ColumnName