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

Bugfix

Browse Source
This commit is contained in:
d.breimaier
2024-11-05 13:37:54 +01:00
parent ec5c5fda2f
commit d5ef03fca4
2 changed files with 5 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
Aviso/My Project/AssemblyInfo.vb
View File

@@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices
' übernehmen, indem Sie "*" eingeben: ' übernehmen, indem Sie "*" eingeben:
' <Assembly: AssemblyVersion("1.0.*")> ' <Assembly: AssemblyVersion("1.0.*")>
<Assembly: AssemblyVersion("4.0.5.2")> <Assembly: AssemblyVersion("4.0.5.3")>
<Assembly: AssemblyFileVersion("4.0.5.2")> <Assembly: AssemblyFileVersion("4.0.5.3")>

5
Aviso/usrcntlAktDetails.vb
View File

@@ -1329,7 +1329,7 @@ Public Class usrcntlAktDetails
For Each r As DataGridViewRow In gridvermerke.Rows For Each r As DataGridViewRow In gridvermerke.Rows
' If r.Cells("VermerkeOptions").GetType.Name = "DataGridViewLinkCell" Then ' If r.Cells("VermerkeOptions").GetType.Name = "DataGridViewLinkCell" Then
Dim optionCell As DataGridViewLinkCell = DirectCast(r.Cells("VermerkeOptions"), DataGridViewLinkCell) Dim optionCell As DataGridViewLinkCell = DirectCast(r.Cells("VermerkeOptions"), DataGridViewLinkCell)
If CBool(r.Cells("Hervorheben").Value) Then If gridvermerke.Columns.Contains("Hervorheben") AndAlso CBool(r.Cells("Hervorheben").Value) Then
'r.DefaultCellStyle.BackColor = Color.Firebrick 'r.DefaultCellStyle.BackColor = Color.Firebrick
'r.DefaultCellStyle.ForeColor = Color.White 'r.DefaultCellStyle.ForeColor = Color.White
r.DefaultCellStyle.BackColor = Color.Yellow r.DefaultCellStyle.BackColor = Color.Yellow
@@ -1543,7 +1543,8 @@ Public Class usrcntlAktDetails
For Each r As DataGridViewRow In gridVermerke.Rows For Each r As DataGridViewRow In gridVermerke.Rows
If r.Displayed Then showFirst = True If r.Displayed Then showFirst = True
If showFirst Then If showFirst Then
If ((r.Cells("Hervorheben") IsNot Nothing AndAlso r.Cells("Hervorheben").Value = "1") Or (r.Cells("VermerkeOptions") IsNot Nothing AndAlso r.Cells("VermerkeOptions").Value <> "")) AndAlso Not r.Displayed Then
If (gridVermerke.Columns.Contains("Hervorheben") AndAlso (r.Cells("Hervorheben") IsNot Nothing AndAlso r.Cells("Hervorheben").Value = "1") Or (gridVermerke.Columns.Contains("VermerkeOptions") AndAlso r.Cells("VermerkeOptions") IsNot Nothing AndAlso r.Cells("VermerkeOptions").Value <> "")) AndAlso Not r.Displayed Then
picArrowDown.Visible = True picArrowDown.Visible = True
End If End If
End If End If