Verimex

Aviso/frmHauptfenster.vb

@@ -1375,7 +1375,12 @@ Public Class frmHauptfenster
             Dim errOcc = False
 
             'MsgBox(sqlStr)
-            gridMyAviso.DataSource = VERAGSQL.loadDgvBySql_Param(sqlStr, "AVISO", 1500, list, False, errOcc)
+            Try
+                gridMyAviso.DataSource = VERAGSQL.loadDgvBySql_Param(sqlStr, "AVISO", 1500, list, False, errOcc)
+            Catch ex As Exception
+                VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name, VERAG_PROG_ALLGEMEIN.ERROR_OP.LOG)
+            End Try
+
             If errOcc Then
                 pic.Visible = True
             End If
@@ -1391,7 +1396,8 @@ Public Class frmHauptfenster
 
 
             With gridMyAviso
-                If .Columns.Count = 0 Then pic.Visible = False : Exit Sub
+                If .Columns.Count <= 0 Then pic.Visible = False : Exit Sub
+                If .Columns("AvisoID") Is Nothing Then pic.Visible = False : Exit Sub
 
                 .DefaultCellStyle.Font = nfont