主题：在ComboBox的ValueChanged事件中写入下面代码出错

''============最高,次高,最低,次低等有效报价===============

Dim dr As DataRow = Tables("开标记录.标录明细").Current.DataRow

Dim n As Integer = e.Sender.Value  ' CInt(e.Sender.Value)

Dim dts As List(Of DataRow) = DataTables("标录明细").Select("[系统编号] = '" & dr("系统编号") & "'And [有效报价] > 0 " ,"有效报价 DESC")

e.Form.StopRedraw()

Tables("开标记录.标录明细").StopRedraw()  '停止绘制表

If dts.Count > 0 Then

    If dts.Count > n Then

        For Each cr As Row In Tables("开标记录.标录明细").Rows

            If cr("评标状态").Contains("最高报价")

                cr("评标状态") = Nothing

            End If

        Next

        For i As Integer = 0 To n -1

            dts(i)("评标状态") = "最高报价" & (i+1)

        Next

    End If

Else

    MessageBox.Show("请先录入标录明细后,再执行!")

End If

Tables("开标记录.标录明细").ResumeRedraw()  '恢复绘制表

e.Form.ResumeRedraw()

提示错误：

.NET Framework 版本：2.0.50727.8762

Foxtable 版本：2018.10.9.1

错误所在事件：

详细错误信息：

DataTable 内部索引已损坏:“5”。

此主题相关图片如下：yyyy.png