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

SQLliteReading/FrmMain.vb

@@ -331,10 +331,10 @@ Public Class FrmMain
         Dim result As String
 
         If inten.Value = ModifyType.del Then
-            result = $"DELETE FROM {TableName.Text} where {_logTable.Cell(0, 1).Text } ='{_logTable.Cell(inten.Key, 1).Text }' "
+            result = $"DELETE FROM {TableName.Text} where {_logTable.Cell(0, 1).Text } ='{_logTable.Cell(Integer.Parse(inten.Key), 1).Text }' "
         Else
             Dim dic As Dictionary(Of String, String) = ResultModifyStr(inten.Key)
-            Dim iswhere As String = $" {_logTable.Cell(0, 1).Text} ='{_logTable.Cell(inten.Key, 1).Text }'"
+            Dim iswhere As String = $" {_logTable.Cell(0, 1).Text} ='{_logTable.Cell(Integer.Parse(inten.Key), 1).Text }'"
             result = db.CmdHelper.Update(TableName.Text, dic, iswhere)
         End If
         Return result
@@ -359,7 +359,7 @@ Public Class FrmMain
         Dim key As String = QueryRowIndex(e.Row)
         ' TestlogTable.Range(e.Row, 1, e.Row, TestlogTable.Cols - 1).CopyData()
         Console.WriteLine(TestlogTable.Cell(e.Row, e.Col).Text)
-        _logTable.Cell(key, e.Col).Text = TestlogTable.Cell(e.Row, e.Col).Text
+        _logTable.Cell(Integer.Parse(key), e.Col).Text = TestlogTable.Cell(e.Row, e.Col).Text
         If ModifyList.ContainsKey(key) Then Return
         TestlogTable.Cell(e.Row, e.Col).BackColor = Color.Red
         ModifyList.Add(key, ModifyType.Modify)