主题：[求助]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 = 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