work on resultlists

This commit is contained in:
Developer02 Digital Data
2019-10-16 17:09:40 +02:00
parent c3379adb54
commit 1047f6152a
11 changed files with 186 additions and 17 deletions

View File

@@ -27,7 +27,7 @@ Public Class frmDataResultList
Private _ActiveGridBand As GridBand = Nothing
Private _ActiveRowHandle As Integer = Constants.NO_ROW_HANDLE
Public Property ShouldReturnToMatchForm As Boolean Implements IResultForm.ShouldReturnToMatchForm
Public Property ShouldReturnToPreviousForm As Boolean Implements IResultForm.ShouldReturnToPreviousForm
Public Sub New(LogConfig As LogConfig, Environment As Environment, Params As DataResultParams)
' Dieser Aufruf ist für den Designer erforderlich.
@@ -43,7 +43,7 @@ Public Class frmDataResultList
_Params = Params
_ResultLists = Params.Results
ShouldReturnToMatchForm = False
ShouldReturnToPreviousForm = False
End Sub
Private Sub frmDataResultList_Load(sender As Object, e As EventArgs) Handles MyBase.Load
@@ -234,7 +234,7 @@ Public Class frmDataResultList
End Sub
Private Sub BarButtonItem2_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem2.ItemClick
ShouldReturnToMatchForm = True
ShouldReturnToPreviousForm = True
Close()
End Sub