Bugfixes, "Verbesserungen"

Dokumentation/Administration/NetzwerkHinzu.vb

@@ -45,7 +45,9 @@ Public Class NetzwerkHinzu
                 cmd.CommandText = "INSERT INTO Tbl_Netzwerke (Netzwerkname, Netzwerk, NWSTANDORT, NETNAME, Subnetz) VALUES ('" & NeuerNetzwerkNameIntern & "', '" & TxtIP.Text & "', '" & Standortname & "', '" & NeuerNetzwerkname & "', '255.255.255.0')"
                 cmd.ExecuteNonQuery()
                 Class1.Absender = "Netzwerkhinzu"
-                NWEdit.Show()
+                Dim nwe As New NWEdit
+                nwe.NW.getNetzwerk(Standortname, NeuerNetzwerkname)
+                nwe.Show()
             End If
 
         Catch ex As Exception