This commit is contained in:
Jonathan Jenne 2020-12-22 14:11:01 +01:00
parent e3639930e1
commit 6a47fc6830

View File

@ -54,10 +54,10 @@ Public Class frmDocumentResultList
_Params = Params
_ResultLists = Params.Results
InitIDB()
MaybeInitIDB()
End Sub
Private Sub InitIDB()
Private Sub MaybeInitIDB()
_IsLegacy = Not _Environment.Service.IsActive
If _Environment.Service.IsActive Then
Dim oSplit As List(Of String) = _Environment.Service.Address.Split(":").ToList()
@ -218,6 +218,7 @@ Public Class frmDocumentResultList
If e.FocusedRowHandle >= 0 Then
Dim oRow = sender.GetDataRow(e.FocusedRowHandle)
Dim oFullPath = oRow.Item(COLUMN_FILEPATH)
DocumentViewer1.LoadFile(oFullPath)
End If
End Sub