Markierung wird ebenfalls im Hauptfenster angezeigt.

Aviso/usrcntlAktDetails.vb

@@ -760,7 +760,7 @@ Public Class usrcntlAktDetails
                 End If
 
                 Button18.Visible = True
-                Dim hSQL As String = " SELECT [anh_id],[anh_Name],[anh_docId],[anh_Art],[anh_Typ] FROM [tblAvisoAnhaenge] 
+                Dim hSQL As String = " SELECT [anh_id],[anh_Name],[anh_docId],[anh_Art],[anh_Typ], anh_markiert FROM [tblAvisoAnhaenge] 
                                         WHERE [anh_AvisoId]='" & AvisoID & "' AND isnull(anh_SendungsId,0) <=0
                                         ORDER BY   
 										  case	    
@@ -796,6 +796,7 @@ Public Class usrcntlAktDetails
                     .AutoSizeRowsMode = DataGridViewAutoSizeRowsMode.AllCells
                     .Columns("anh_id").Visible = False     'VermerkID nicht anzeigen
                     .Columns("anh_docId").Visible = False     'AvisoID nicht anzeigen
+                    .Columns("anh_markiert").Visible = False     'AvisoID nicht anzeigen
 
                     .Columns("anh_Name").MinimumWidth = 150
                     .Columns("anh_Name").HeaderText = "Name"
@@ -809,6 +810,12 @@ Public Class usrcntlAktDetails
                     .Columns("anh_Typ").HeaderText = "Typ"
                     .Columns("anh_Art").DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopCenter
 
+                    For Each row As DataGridViewRow In gridVermerke.Rows
+                        If Not IsDBNull(row.Cells("anh_markiert").Value) Then
+                            If row.Cells("anh_markiert").Value Then row.DefaultCellStyle.BackColor = Color.LightYellow
+                        End If
+                    Next
+
                 End With
         End Select
         painted = False