edv/AVISO
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Merge branch 'master' of https://verag.visualstudio.com/AVISO/_git/AVISO

Browse Source
This commit is contained in:
d.breimaier
2023-11-13 16:07:10 +01:00
parent faebd68d0f 1f230b49a2
commit 24efc47057
3 changed files with 13 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
Aviso/frmHauptfenster.vb
View File

@@ -1380,7 +1380,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
@@ -1396,7 +1401,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