Merge pull request IDEMSInternational#8699 from derekagorhom/Edit_branch

Fixed Bug in the Edit Cell dialog
Patowhiz · Jan 11, 2024 · 7e59968 · 7e59968
2 parents 819984c + 4af0ec6
commit 7e59968
Showing 1 changed file with 3 additions and 3 deletions.
diff --git a/instat/UserControls/DataGrid/ReoGrid/ucrReoGrid.vb b/instat/UserControls/DataGrid/ReoGrid/ucrReoGrid.vb
@@ -219,8 +219,8 @@ Public MustInherit Class ucrReoGrid
     Private Function GetRowIndex(currWorkSheet As Worksheet, strRowName As String) As Integer
         If currWorkSheet IsNot Nothing Then
             For i As Integer = 0 To currWorkSheet.Rows - 1
-                Dim strCol As String = currWorkSheet.RowHeaders(i).Text
-                If strCol = strRowName Then
+                Dim strCol As String = currWorkSheet.RowHeaders(i).Text - 1
+                If CInt(strCol) = CInt(strRowName) Then
                     Return i
                 End If
             Next
@@ -234,7 +234,7 @@ Public MustInherit Class ucrReoGrid
             If strColumnHeader.Contains("(") Then
                 strColumnHeader = strColumnHeader.Split("(")(0)
             End If
-            Dim iRowIndex = GetRowIndex(grdData.CurrentWorksheet, iRow) + 1
+            Dim iRowIndex = GetRowIndex(grdData.CurrentWorksheet, iRow)
             If strColumnHeader.Trim = strColumn _
                 AndAlso iRowIndex > -1 Then
                 Return grdData.CurrentWorksheet(iRowIndex, i).ToString()