20200108

Aviso/Auswertung/frmStatFrima.vb

@@ -146,6 +146,13 @@ Public Class frmStatFrima
 
    
     Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
+        If DataGridView1.SelectedRows.Count > 0 Then
+            Dim frmLKWBericht As New frmLKWBericht(DataGridView1.SelectedRows(0).Cells("AvisoID").Value)
+            frmLKWBericht.ShowDialog(Me)
+
+        End If
+        Exit Sub
+
         Dim str As String = ""
         For Each r As DataGridViewRow In DataGridView1.Rows()
             If r.Selected Then