在这里写条件
DataTables("故障报告2").StopRedraw
Dim drs As List(Of DataRow) = DataTables("故障报告2").Select("日期范围的条件写在这里", "飞机号,系统章节,日期")
For i As Integer = 2 To drs.count - 1
Dim flag As Boolean = True
For j As Integer = 1 To 2
If not (drs(i-j)("飞机号") = drs(i)("飞机号") AndAlso drs(i-j)("系统章节") = drs(i)("系统章节") AndAlso drs(i-j)("日期") >= drs(i)("日期").AddDays(-30) AndAlso drs(i-j)("日期") < drs(i)("日期")) Then
flag = False
Exit For
End If
Next
If flag Then
drs(i)("预警") = "重复性故障"
Else
drs(i)("预警") = Nothing
End If
Next
DataTables("故障报告2").ResumeRedraw