编辑页面树状目录变更，待排查问题

UTS_Core/UTSModule/Service/AppRegister.vb

@@ -75,19 +75,18 @@ Namespace UTSModule.Service
             Me.AppName = appName
             Me.AppVersion = appVersion
 
-            InitApp()
-
+            InitApp().GetAwaiter().GetResult()
         End Sub
 
         Public Property ProjectName() As String
         Public Property StationName() As String
         Public Property TestPlan() As String
 
-        Private Sub InitApp()
+        Private Async Function InitApp() As Task
             If AppRegistered() Then
                 '更新App版本
                 Try
-                    UpdateAppVersion()
+                    Await UpdateAppVersion()
                 Catch ex As Exception
                     Throw New Exception($"UpdateAppVersion Error: {ex.Message}")
                 End Try
@@ -100,7 +99,7 @@ Namespace UTSModule.Service
                 Throw New Exception($"RegisterApp Error: {ex.Message}")
             End Try
 
-        End Sub
+        End Function
 
 
         Private Function AppRegistered() As Boolean
@@ -172,7 +171,7 @@ Namespace UTSModule.Service
             End Using
         End Sub
 
-        Private Sub UpdateAppVersion()
+        Private Async Function UpdateAppVersion() As Task
             Dim tableName As String = AppListTable.TableName
             Dim filed As New Dictionary(Of String, String) From {
                     {$"{AppListTable.ColNamesEnum.AppVersion}", AppVersion},
@@ -188,9 +187,9 @@ Namespace UTSModule.Service
                 Using db As New DbExecutor(UtsDb.RemoteDbType, UtsDb.RemoteConnString)
                     cmdText = db.CmdHelper.DbUpdate(UtsDb.RemotePublicDb, tableName, filed, condition)
 
-                    db.Open()
+                    Await db.OpenAsync()
 
-                    db.ExecuteNonQuery(cmdText)
+                    Await db.ExecuteNonQueryAsync(cmdText)
 
                     db.Close()
                 End Using
@@ -203,10 +202,10 @@ Namespace UTSModule.Service
 
             '本地更新App版本
             Using db As New DbExecutor(UtsDb.LocalDbType, UtsDb.LocalConnString)
-                db.Open()
+                Await db.OpenAsync()
 
                 cmdText = db.CmdHelper.Update(tableName, filed, condition)
-                db.ExecuteNonQuery(cmdText)
+                Await db.ExecuteNonQueryAsync(cmdText)
 
                 '保存至缓冲队列
                 If saved = False Then
@@ -216,7 +215,7 @@ Namespace UTSModule.Service
 
                 db.Close()
             End Using
-        End Sub
+        End Function
 
         ''' <summary>
         ''' 定期更新APP的活动时间，调用则会定期基于本地调用存储过程至缓存表