If e.DataRow("任务状态") = True Then
Dim drs As List(Of DataRow) = DataTables("信息记录").SQLSelect("任务状态 = 1")
For Each dr As DataRow In drs
dr("任务状态") = false
Next
Dim drs As List(Of DataRow) = DataTables("信息记录").Select("任务状态 = true and _identify <>" & e.DataRow("_identify"))
For Each dr As DataRow In drs
dr("任务状态") = false
Next
End If
如果数据是全部加载的,没有必要使用SQLSelect,直接去掉第一段SQLSelect的代码即可