主题：[求助]Find查找范围

如果全部都要填上，就这样写

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