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

 find能够设置查找范围吗？比如只当前位置以上n行的数据内进行条件查找

DataTables("表A").Find("其余条件 And _Identify < " & 当前行("_Identify"))

 谢谢！

红袍哥，我设置查找范围的目的是因为数据量太大，全部查找程序会卡。用你这种方法的话，是不是仍会全部遍历一遍啊

 你全部代码肯定有问题，看完这一章

 

http://www.foxtable.com/help/topics/2226.htm

 

我代码还是挺简单的，就是数据量大了一些，您看看
If e.DataCol.Name = "章节号" Then '如果更改的是章节号列
    If e.DataRow.IsNull("日期") And e.DataRow.IsNull("系统章节") Then '日期和系统章节列是否为空
        e.DataRow("预警") = "信息不足"  '如果为空
    ElseIf e.DataRow("校准后") = "MAINT" Or e.DataRow("校准后") = "PILOT" Then
        Dim Dr_Repeatability = DataTables("故障报告").Find("日期 >= #" & e.DataRow("日期").AddDays(-30) & "# and 日期 <= #" & e.DataRow("日期") & "# and 系统章节 = '" & e.DataRow("系统章节") & "' and 飞机号 = '" & e.DataRow("飞机号") & "'","日期 Desc",2) '查找重复性故障
        If Dr_Repeatability IsNot Nothing Then
            e.DataRow("预警") = "重复性故障"
        Else
            e.DataRow("预警") = "正常"
        End If
    End If
End If
但是数据量一大，就会卡，我就想能不能设定一下find的查找范围

对了，正常输入的时候是不卡的，但是点击重置列时会卡到三分钟左右

 数据量越大，find的次数越多，肯定越慢。而且那你还有日期的比较

 

http://www.foxtable.com/help/topics/2219.htm

 

 你可以单独做一个按钮，尽量不要用find看是否可以。

谢谢红袍哥了，现在才改完，改成下面的代码速度飞起了
Dim drs1 As List(Of DataRow)
Dim drs2 As List(Of DataRow)
drs1 = DataTables("故障报告2").Select("" & Filter & "")
For Each dr1 As DataRow In drs1
    Dim dv As Date = dr1("日期")
    Dim n As Integer = 0
    drs2 = DataTables("故障报告2").Select("飞机号 = '" & dr1("飞机号") & "' and 系统章节 = '" & dr1("系统章节") & "'", "日期") '注意要根据日期排序
    For Each dr2 As DataRow In drs2
        'dr2("预警") = Nothing
        If dr2("日期") >= dv.AddDays(-30) And dr2("日期") < dv.AddDays(0) Then
            n  = n + 1
            If n >=2 Then
                dr1("自定义预警") = "重复性故障"
            End If
        Else
            Exit For
        End If
    Next   
Next

我写的代码是分别根据章节号的前两位和四位进行预警，按理说，四位预警的情况下，两位章节一定会发生预警才对，麻烦红袍哥帮忙看下，我这公司内网，没法上传附件，传代码了啊。

系统章节 = 章节号的前两位
章节号共四位
'''-----------------------------------两位章节预警-------------------------------------------------------------''
If e.DataCol.Name = "日期" Then
    Dim drs As List(of DataRow)
    Dim dv As Date = e.DataRow("日期")
    Dim n As Integer = 0
    drs = DataTables("故障报告2").Select("飞机号 = '" & e.DataRow("飞机号") & "' and 系统章节 = '" & e.DataRow("系统章节") & "'", "日期") '注意要根据日期排序
    For Each dr2 As DataRow In drs
    'dr2("预警") = Nothing
        If dr2("日期") >= dv.AddDays(-30) And dr2("日期") < dv Then
            n  = n + 1
            If n >=2 Then
                e.DataRow("预警") = "重复性故障"
            End If
        Else
            Exit For
        End If
    Next
End If
'''-----------------------------------四位章节预警-------------------------------------------------------------''
If e.DataCol.Name = "日期" Then
    Dim drs As List(of DataRow)
    Dim dv As Date = e.DataRow("日期")
    Dim n As Integer = 0
    drs = DataTables("故障报告2").Select("飞机号 = '" & e.DataRow("飞机号") & "' and 章节号 = '" & e.DataRow("章节号") & "'", "日期") '注意要根据日期排序
    For Each dr2 As DataRow In drs
        If dr2("日期") >= dv.AddDays(-30) And dr2("日期") < dv Then
            n  = n + 1
            If n >=2 Then
                e.DataRow("四位章节预警") = "重复性故障"
            End If
        Else
            Exit For
        End If
    Next
End If