Common: Fix row styles crash

This commit is contained in:
Jonathan Jenne 2022-04-05 14:23:44 +02:00
parent a5fb2dac3f
commit 89e82ea6a5

View File

@ -1064,8 +1064,14 @@ Public Class frmDocumentResultList
Dim oGridView As BandedGridView = sender Dim oGridView As BandedGridView = sender
Dim oRow As DataRowView = oGridView.GetRow(e.RowHandle) Dim oRow As DataRowView = oGridView.GetRow(e.RowHandle)
If oRow IsNot Nothing AndAlso oRow.Row.Item(ColumnCheckedOut) IsNot Nothing AndAlso oRow.Row.Item(ColumnCheckedOut) = True Then If OperationMode = OperationMode.WithAppServer Or OperationMode = OperationMode.ZooFlow Then
e.Appearance.BackColor = Color.LightSalmon Try
If oRow IsNot Nothing AndAlso oRow.Row.ItemEx(ColumnCheckedOut, False) = True Then
e.Appearance.BackColor = Color.LightSalmon
End If
Catch ex As Exception
End Try
End If End If
End Sub End Sub
End Class End Class