AppStd/Modules
8
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

MS Optimizing, CurrentLocal

Browse Source
This commit is contained in:
SchreiberM
2020-12-30 14:12:26 +01:00
parent 93cc0acfbd
commit 00222efb88
21 changed files with 235 additions and 273 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
GUIs.Test.EDMIBenchmark/Form1.vb
View File

@@ -13,7 +13,7 @@ Public Class Form1
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Try
_LogConfig = New LogConfig(LogConfig.PathType.Temp, Nothing, "EDMIBenschmark")
_LogConfig = New LogConfig(LogConfig.PathType.Temp, Nothing, "EDMIBenchmark")
_Logger = _LogConfig.GetLogger()
_Client = New Client(_LogConfig, "172.24.12.39", 9000)
_Client.Connect()
@@ -227,13 +227,14 @@ Public Class Form1
Dim oSortExpression As String = TextboxDatatableSort.EditValue
Dim oFilterExpression As String = TextboxDatatableFilter.EditValue
Dim oResponse As TableResult = Await _Client.GetDatatableByNameAsync(oDatatableName, oFilterExpression, oSortExpression)
Dim oDt As DataTable = oResponse.Table
GridControl1.DataSource = oDt
oSWTotal.Stop()
If oResponse.OK Then
AddLogMessage($"DataTable [{oDatatableName}] loaded: [{FormatTime(oSWTotal.ElapsedMilliseconds)}]")
AddLogMessage(Now.ToLongTimeString + $"DataTable [{oDatatableName}] loaded: [{FormatTime(oSWTotal.ElapsedMilliseconds)}]")
Else
AddLogMessage($"DataTable [{oDatatableName}] could not be loaded. Error: {oResponse.ErrorMessage}")
AddLogMessage(Now.ToLongTimeString + $"DataTable [{oDatatableName}] could not be loaded. Error: {oResponse.ErrorMessage}")
End If
Catch ex As FaultException
MsgBox(ex.Reason.ToString, MsgBoxStyle.Critical, "Error from Service")