Bugfixes, "Verbesserungen"

Dokumentation/Main.vb

@@ -457,6 +457,9 @@ Public Class Main
     End Function
 
     Public Function dgvfill(ds As DataSet, design As String)
+        '  Class1.dtSuchergebnis.Clear()
+        Class1.dtSuchergebnis = ds.Tables(0)
+
         Dim starttime As Date = DateTime.Now
         Dim endtime As New Date
         If design = "Netzwerk" Then
@@ -746,10 +749,14 @@ Public Class Main
     Private Sub CmdNetzwerkbearbeiten_Click(sender As Object, e As EventArgs) Handles CmdNetzwerkbearbeiten.Click
         werbinich()
         Class1.Absender = "Main"
-        NWEdit.StartPosition = FormStartPosition.Manual
-        NWEdit.Location = New Point(Location.X + 300, Location.Y + 300)
+        Dim NWE As New NWEdit
+        'NWE.NWStandort = SenderStandort
+        'NWE.Netzwerkname = SenderNetzwerk
+        NWE.NW.getNetzwerk(SenderStandort, SenderNetzwerk)
+        NWE.StartPosition = FormStartPosition.Manual
+        NWE.Location = New Point(Location.X + 300, Location.Y + 300)
         'NetzwerkBearbeiten.Show()
-        NWEdit.Show()
+        NWE.Show()
     End Sub
 
     Private Sub NetzwerkeToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles NetzwerkeToolStripMenuItem.Click
@@ -789,9 +796,13 @@ Public Class Main
             Try
                 frm.IP = (DgVMain.CurrentRow.Cells("IPAdresse").Value)
             Catch
-                frm.IP = (DgVMain.Rows(0).Cells("IPAdresse").Value)
+                Dim NW As New cNetzwerk
+                NW.getNetzwerk(LstStandort.SelectedItem, LstNetzwerk.SelectedItem)
+                NW.getFirstHost()
+                frm.IP = NW.StartIP
             End Try
-            If cBerechtigungen.BenutzerBerechtigungfuerStandort(Class1.LoggedOnUser.BenutzeranmeldeName, DgVMain.CurrentRow.Cells("NWSTANDORT").Value) = "R" Then
+            'If cBerechtigungen.BenutzerBerechtigungfuerStandort(Class1.LoggedOnUser.BenutzeranmeldeName, DgVMain.CurrentRow.Cells("NWSTANDORT").Value) = "R" Then
+            If cBerechtigungen.BenutzerBerechtigungfuerStandort(Class1.LoggedOnUser.BenutzeranmeldeName, LstStandort.SelectedItem) = "R" Then
                 frm.Panel1.Enabled = False : frm.PanFirewall.Enabled = False
             End If
             AddHandler frm.FormClosing, Function()
@@ -807,7 +818,9 @@ Public Class Main
             Eintrag.rubrik = Class1.DBNull2emptyString(DgVMain.CurrentRow.Cells("Rubrik").Value)
             Eintrag.Titel = Class1.DBNull2emptyString(DgVMain.CurrentRow.Cells("Titel").Value)
             Eintrag.Berechtigung = Class1.DBNull2emptyString(DgVMain.CurrentRow.Cells("Zugriff").Value)
-            Eintrag.getFromSQL()
+            If Eintrag.getFromSQL() = -1 Then
+                btnNeu.PerformClick() : Exit Sub
+            End If
             Dim frm As New frmAllgemeinEintrag
             frm.Eintrag = Eintrag
             frm.Text = Eintrag.Titel
@@ -1222,11 +1235,10 @@ Public Class Main
     End Sub
 
     Private Sub btnTest3_Click(sender As Object, e As EventArgs) Handles btnTest3.Click
-        Dim test As String
-        For Each st As String In Class1.HostList
-            test &= st & vbCrLf
-        Next
-        MsgBox(test)
+        Dim test As New cNetzwerk
+        test.getNetzwerk(LstStandort.SelectedItem, LstNetzwerk.SelectedItem)
+        test.getFirstHost()
+        MsgBox("STOP HIER")
     End Sub
 
     Private Sub ToolStripMenuItemINFO_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItemINFO.Click