如果全部都要填上,就这样写
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 = False
Dim count As Integer = 0
For j As Integer = i-1 To 0 Step -1
If drs(j)("日期") <> drs(j+1)("日期") Then
If drs(j)("飞机号") = drs(i)("飞机号") AndAlso drs(j)("系统章节") = drs(i)("系统章节") AndAlso drs(j)("日期") >= drs(i)("日期").AddDays(-30) AndAlso drs(j)("日期") < drs(i)("日期") Then
count += 1
End If
End If
If count >= 2 Then
For k As Integer = j To i-1
drs(k)("预警") = "重复性故障"
Next
flag = True
Exit For
End If
Next
If flag Then
drs(i)("预警") = "重复性故障"
Else
drs(i)("预警") = Nothing
End If
Next
DataTables("故障报告2").ResumeRedraw