更新数据表中的行

Question

我正在尝试根据其 ID 更新我的数据表中的一行。我插入的数据来自sql。我试图防止表中的重复，如果发生重复，我想增加时间列。 这是我的代码。每当我执行它时，我都会收到此错误：附加信息：索引超出了数组的范围。在我看来，select 无法在数据表中找到正确的行.有什么建议？

Dim listID As New List(Of Integer)
Dim dt As New DataTable
dt.Columns.Add("LOID")
dt.Columns.Add(New DataColumn("Correct", GetType(Integer)))
dt.Columns.Add(New DataColumn("Times", GetType(Integer)))

For Each dr As DataRow In ds.Tables(0).Rows
    If Not listID.Contains(dr.Item("LOID")) Then
        'check if its correct
        Dim answerCorrect As Integer
        If dr.Item("Correct") = 1 Then
            answerCorrect = 1
        Else
            answerCorrect = 0
        End If
        'add new row
        listID.Add(dr.Item("LOID"))
        dt.Rows.Add(dr.Item("LOID"), answerCorrect, 1)
    Else
        'update table set times plus 1
        Dim myRow() As Data.DataRow
        Dim rowName As String = "LOID = " & dr.Item("LOID")
        myRow = dt.Select(rowName)

        Dim timesLO As Integer = myRow(0)("Times")
        myRow(0)("Times") = timesLO
        'update table depending if the answer is correct
        If dr.Item("Correct") = 1 Then
            myRow(0)("Correct") = myRow(0)("Correct") + 1
        End If

    End If
Next

Answer 1

想通了！ :)

我使用以下代码使用动态值在我的数据表中进行搜索

 myRow = dt.Select("LOID ='" & dr.Item("LOID") & "'")