jj appserv

GUIs.Test.EDMIBenchmark/Form1.vb

@@ -213,4 +213,27 @@ Public Class Form1
     Private Sub BarButtonItem1_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem1.ItemClick
         Process.Start(_LogConfig.LogDirectory)
     End Sub
+
+    Private Async Sub BarButtonItem3_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem3.ItemClick
+        Try
+            Dim oSWTotal As New Stopwatch()
+            oSWTotal.Start()
+
+            If TextboxDatatableName.EditValue = "" Then
+                MsgBox("Please enter a Datatable name!", MsgBoxStyle.Exclamation, "Uh oh!")
+            End If
+
+            Dim oDatatableName As String = TextboxDatatableName.EditValue
+            Dim oResponse As DataTable = Await _Client.GetDatatableByNameAsync(oDatatableName)
+
+            oSWTotal.Stop()
+            AddLogMessage($"DataTable [{oResponse.TableName}] loaded: [{FormatTime(oSWTotal.ElapsedMilliseconds)}]")
+        Catch ex As FaultException
+            MsgBox(ex.Reason.ToString, MsgBoxStyle.Critical, "Error from Service")
+            _Client.Reconnect()
+        Catch ex As Exception
+            MsgBox(ex.Message, MsgBoxStyle.Critical, "Uh oh!")
+            _Client.Reconnect()
+        End Try
+    End Sub
 End Class