TestGUI: update test gui
This commit is contained in:
@@ -220,7 +220,7 @@ Public Class frmAdmin_ClipboardWatcher
|
||||
Dim oTextEdit As TextEdit = sender
|
||||
|
||||
If e.Button.Tag = BUTTON_SEARCH_SQL Then
|
||||
Dim oForm As New frmSQLEditor(My.LogConfig, My.DatabaseECM) With {.SQLString = oTextEdit.EditValue}
|
||||
Dim oForm As New frmSQLEditor_old(My.LogConfig, My.DatabaseECM) With {.SQLString = oTextEdit.EditValue}
|
||||
Dim oResult = oForm.ShowDialog()
|
||||
|
||||
If oResult = DialogResult.OK Then
|
||||
@@ -233,7 +233,7 @@ Public Class frmAdmin_ClipboardWatcher
|
||||
Dim oTextEdit As TextEdit = sender
|
||||
|
||||
If e.Button.Tag = BUTTON_COUNT_SQL Then
|
||||
Dim oForm As New frmSQLEditor(My.LogConfig, My.DatabaseECM) With {.SQLString = oTextEdit.EditValue}
|
||||
Dim oForm As New frmSQLEditor_old(My.LogConfig, My.DatabaseECM) With {.SQLString = oTextEdit.EditValue}
|
||||
Dim oResult = oForm.ShowDialog()
|
||||
|
||||
If oResult = DialogResult.OK Then
|
||||
|
||||
Reference in New Issue
Block a user