在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