新增snlist三条命令

SQLliteReading/FrmMain.vb

@@ -1,16 +1,6 @@
-Imports UTS_Core.UTSModule
-Imports UTS_Core.UTSModule.Test
-Imports System.ComponentModel
-Imports System.IO.Ports
-Imports UTS_Core.UTSModule.DbTableModel.Customer
-Imports UTS_Core.UTSModule.DbConnect
+Imports UTS_Core.Database
 Imports UTS_Core.DebugLog
-Imports UTS_Core.UTSModule.Test.Controls
-Imports Newtonsoft.Json
-Imports UTS_Core.Database
-Imports UTS_Core.UTSModule.Project
-Imports UTS_Core.UTSModule.Station
-Imports System.Diagnostics
+Imports UTS_Core.UTSModule
 
 Public Class FrmMain
     Implements IProcessStation
@@ -269,7 +259,6 @@ Public Class FrmMain
         End If
         TestlogTable.Range(TestlogTable.ActiveCell.Row, 0, TestlogTable.ActiveCell.Row, TestlogTable.Cols - 1).FontStrikeout = True
         TestlogTable.Range(TestlogTable.ActiveCell.Row, 0, TestlogTable.ActiveCell.Row, TestlogTable.Cols - 1).BackColor = Color.Red
-        ' TestlogTable.RemoveItem(TestlogTable.ActiveCell.Row)
     End Sub
 
     Public Function QueryRowIndex(rowid As Integer) As String
@@ -292,9 +281,7 @@ Public Class FrmMain
             db.Open()
             db.BeginTransaction()
 
-            Dim dicFiled As Dictionary(Of String, String)
             Dim cmdText As String
-            Dim colName As String
             Dim colNames As New List(Of String)
 
             For Each inten In ModifyList
@@ -305,7 +292,6 @@ Public Class FrmMain
                     db.ExecuteNonQuery(cmdText) '执行语句
                     db.ClearDbParameter()
                 Catch ex As Exception
-                    'WriteErrorLogToFile($"[{i}]Write LogQueue To Remote DB Error: {ex.Message}")
                     IsSaveChangesFlag = False
                     MsgBox($"保存修改失败！详情：{ex}")
                     Try