修正函数调用时记录项与测试表格对应问题

UTS_Core/UTSModule/Test/TestRecordGrid.vb

@@ -198,9 +198,9 @@ Namespace UTSModule.Test
                         _callNodeList.Add(node, New List(Of Integer) From {row})
                     End If
                 Else
-                    _rowList.Add(row, node)
                     _nodeList.Add(node, row)
                 End If
+                _rowList.Add(row, node)
 
                 If node.SaveToDb Then
                     _recodeRow.Add(row)
@@ -371,6 +371,9 @@ Namespace UTSModule.Test
             End With
         End Sub
 
+
+        Private lastNode As RowNode
+
         ''' <summary>
         ''' 获取当前节点所在的记录行,0代表未找到对应节点
         ''' </summary>
@@ -381,13 +384,26 @@ Namespace UTSModule.Test
             If _nodeList.ContainsKey(node) Then
                 row = _nodeList(node)
             ElseIf _callNodeList.ContainsKey(node) Then
-                If _callNodeUpdateCount.ContainsKey(node) Then
-                    _callNodeUpdateCount(node) += 1
+                If lastNode IsNot Nothing AndAlso lastNode.RowIndex = node.RowIndex Then
+
                 Else
-                    _callNodeUpdateCount.Add(node, 0)
+                    If _callNodeUpdateCount.ContainsKey(node) Then
+                        _callNodeUpdateCount(node) += 1
+                    Else
+                        _callNodeUpdateCount.Add(node, 0)
+                    End If
+
                 End If
 
-                row = _callNodeList(node)(_callNodeUpdateCount(node))
+                Dim index As Integer = _callNodeUpdateCount(node)
+                If index >= _callNodeList(node).Count Then
+                    Console.WriteLine($"Error index:{node.RowIndex} - {node.Description}")
+                    row = _callNodeList(node).Count
+                Else
+                    row = _callNodeList(node)(index)
+                End If
+
+                lastNode = node
             End If
             Return row
         End Function