fix error for profilepreselection

This commit is contained in:
Jonathan Jenne 2022-02-01 15:56:26 +01:00
parent 9b8a780f06
commit b2f82f3880

View File

@ -1677,8 +1677,8 @@ Public Class frmIndex
If CURRENT_LASTDOKART <> "" Then
_Logger.Info("Last Saved DocType: {0}", CURRENT_LASTDOKART)
Dim oFoundDocType = ComboboxDoctype.Properties.DataSource.
Cast(Of DocType)().
Dim oDocTypes As List(Of DocType) = ComboboxDoctype.Properties.DataSource
Dim oFoundDocType = oDocTypes.
Where(Function(dt) dt.Name = CURRENT_LASTDOKART).
FirstOrDefault()