Vermerke

Aviso/rCntrlVermerke.vb

@@ -17,7 +17,7 @@ Public Class rCntrlVermerke
     End Sub
 
 
-    Public Sub Vermerke_anzeigen2(Optional rowindex As Integer = -1)
+    Public Sub Vermerke_anzeigen2(Optional SendungsIndex As Integer = -1, Optional rowindex As Integer = -1)
         aktiv = Now 'Damit nicht neu geladedt wird (frmHauptfenster -> timer.tick)
         gridVermerke.Columns.Clear()
         '  lblInfoAviso.Visible = False
@@ -87,12 +87,18 @@ Public Class rCntrlVermerke
         usrcntlAktDetails.gridVermerke_SpaltenFestlegen(gridVermerke)
 
         'If tbcntlVermerke.SelectedIndex = 2 And rowindex > 0 Then
-        If rowindex > 0 Then
+        If SendungsIndex > 0 Then
             'dgvSendungen.ClearSelection()
             'dgvSendungen.Rows(rowindex).Selected = True
         Else
-            'gridVermerke.ClearSelection()
+            gridVermerke.ClearSelection()
         End If
+
+        If rowindex > 0 Then
+            gridVermerke.ClearSelection()
+            gridVermerke.Rows(rowindex).Selected = True
+        End If
+
         ' timer.Enabled = True
         ' initDGVSendungenRows()
     End Sub
@@ -105,7 +111,7 @@ Public Class rCntrlVermerke
         End If
         usrcntlAktDetails.gridVermerkeMouseClick(gridVermerke, e.ColumnIndex, e.RowIndex, AVISO, tmpIndex)
 
-        Vermerke_anzeigen2(tmpIndex)
+        Vermerke_anzeigen2(tmpIndex, e.RowIndex)
     End Sub
     Private Sub gridVermerke_Paint(sender As Object, e As PaintEventArgs) Handles gridVermerke.Paint
         If painted Then Exit Sub