work on resultlists
This commit is contained in:
@@ -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
|
||||
|
||||
|
||||
Reference in New Issue
Block a user