neu

Aviso/frmHauptfenster.vb

@@ -1167,7 +1167,13 @@ Public Class frmHauptfenster
             '   Dim bfont = New Font(gridMyAviso.Font.FontFamily, gridMyAviso.Font.Size, FontStyle.Bold)
             Dim nfont = New Font(gridMyAviso.Font.FontFamily, gridMyAviso.Font.Size, FontStyle.Regular)
 
+
+            'MsgBox(sqlStr)
+
+
             With gridMyAviso
+                If .Columns.Count = 0 Then pic.Visible = False : Exit Sub
+
                 .DefaultCellStyle.Font = nfont
 
                 .MultiSelect = False
@@ -1376,6 +1382,7 @@ Public Class frmHauptfenster
             End With
 
         Catch ex As Exception
+            ' MsgBox(ex.Message)
             VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
         End Try
         '   Grid_aktiv = True