This commit is contained in:
2020-12-22 14:12:21 +01:00
25 changed files with 364 additions and 202 deletions

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