MS Diverses Customizing

app/DD-Record-Organizer/frmStructureNodeConfig.vb

@@ -392,6 +392,9 @@
                 Dim sql = "SELECT NODE_IMAGE FROM TBPMO_STRUCTURE_NODES_CONFIGURATION WHERE GUID = " & GUIDTextBox.Text
                 Dim img = MYDB_ECM.GetScalarValue(SQL)
                 ' Hintergrundbild unwandeln und anzeigen
+                If IsNothing(img) Then
+                    Exit Sub
+                End If
                 If Not IsDBNull(img) Then
                     Dim bimage() As Byte = img
                     Dim image = ByteArrayToBitmap(bimage)
@@ -434,28 +437,33 @@
 
     Private Sub LoadData()
         If cmbEntity.SelectedIndex <> -1 Then
-            Me.TBPMO_STRUCTURE_NODES_CONFIGURATIONTableAdapter.Fill(Me.DD_DMSDataSet.TBPMO_STRUCTURE_NODES_CONFIGURATION, cmbEntity.SelectedValue)
+            Load_Nodes_entity
             If DD_DMSDataSet.TBPMO_STRUCTURE_NODES_CONFIGURATION.Rows.Count > 0 Then
                 Load_TreeView()
+            Else
+                TreeView1.Nodes.Clear()
             End If
         End If
     End Sub
 
-
+    Sub Load_nodes_Entity()
+        Me.TBPMO_STRUCTURE_NODES_CONFIGURATIONTableAdapter.Fill(Me.DD_DMSDataSet.TBPMO_STRUCTURE_NODES_CONFIGURATION, cmbEntity.SelectedValue)
+    End Sub
     Private Sub BindingNavigatorAddNewItem_Click(sender As Object, e As EventArgs) Handles BindingNavigatorAddNewItem.Click
-        'Try
-        '    TBPMO_STRUCTURE_NODES_CONFIGURATIONBindingSource.AddNew()
-        '    GroupBoxNodeIcon.Enabled = False
-        'Catch ex As Exception
-        '    MsgBox("Error in AddNode:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
-        'End Try
-        Dim oParentID = GUIDTextBox.Text
-        If oParentID = "" Then
-            oParentID = 0
-        End If
-        Dim NewAddForm As New frmNodeConfigAdd(GUIDTextBox.Text, ComboBoxEntity.SelectedValue, ComboBoxEntity.Text)
-        NewAddForm.ShowDialog()
-        LoadData()
+        Try
+            Dim oParentID = GUIDTextBox.Text
+            Dim oEntity = cmbEntity.SelectedValue
+            If oParentID = "" Then
+                oParentID = 0
+            End If
+            Dim NewAddForm As New frmNodeConfigAdd(oParentID, cmbEntity.SelectedValue, cmbEntity.Text)
+            NewAddForm.ShowDialog()
+            Load_nodes_Entity()
+            LoadData()
+        Catch ex As Exception
+            MsgBox("Error in Adding Node:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
+        End Try
+
     End Sub
 
     Private Sub BindingNavigatorDeleteItem_Click(sender As Object, e As EventArgs)