主题：跨表引用统计

查找某行 http://www.foxtable.com/help/topics/0396.htm

 

我知道是查找功能，想搞明白所起到的作用，我推测不需要查找，实际只需要排除c = "操纵" 时情况，于是把代码改为：

 直接说你想做什么。

通过代码获得“人员任务统计”表中的结果，通过分组统计现可以得到30天内每人累加起落数。

 Tables("统计表3").Filter = "起落数< 20"

其余代码都理解意思，就还是不明白代码中标蓝部分的意思：

 查找 姓名=操纵者名字，且如果有多个，取最后一个 的行

 

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

 

代码运行正常，每次都全部清除后重新统计，但随着需统计行最多，运算困难，超过2000行后，无法计算，每次死机。能否对代码进行修改，让计算机分批次计算，谢谢

 方法一，你可以设定条件控制要统计的日期啊

 

Dim dt As DataTable = DataTables("人员任务统计")
'dt.DataRows.Clear
Dim cs() As String = {"左座", "右座", "操纵者", "观察员1"}
For Each dr As DataRow In DataTables("任务书").Select("飞行日期 > #4/30/2015#", "飞行日期")
    Dim ndr As DataRow
    For Each c As String In cs
        If dr.IsNull(c) = False Then
            If c = "操纵者" Then
                ndr = dt.Find("姓名 = '" & dr(c) & "'", "_Identify desc")
            Else
                ndr = dt.AddNew
            End If
            ndr("日期") = dr("飞行日期")
            ndr("机型") = dr("机型")
            ndr("姓名") = dr(c)
            ndr(c) = True

            ndr("总时间") = dr("总时间")

            ndr("经历时间") = dr("经历时间")
            If c = "操纵者" Then
                ndr("起落架次") = dt.Compute("sum(起落架次)", "姓名 = '" & dr(c) & "'") + dr("起落架次")
            End If
        End If
    Next
Next 

 或者，你可以试试用下面的代码

 

Dim dt As DataTable = DataTables("人员任务统计")
dt.DataRows.Clear
Dim cs() As String = {"操纵者", "左座", "右座", "观察员1"}
For Each dr As DataRow In DataTables("任务书").Select("", "飞行日期")
    Dim ndr As DataRow
    Dim cdr As DataRow = Nothing
    For Each c As String In cs
        If dr.IsNull(c) = False Then
            If c = "操纵者" Then
                ndr = dt.AddNew
                cdr = ndr
            Else
                If cdr("姓名") = dr(c) Then
                    ndr = cdr
                Else
                    ndr = dt.AddNew
                End If
            End If
            ndr("日期") = dr("飞行日期")
            ndr("机型") = dr("机型")
            ndr("姓名") = dr(c)
            ndr(c) = True
           
            ndr("总时间") = dr("总时间")
           
            ndr("经历时间") = dr("经历时间")
            If c = "操纵者" Then
                ‘ndr("起落架次") = dt.Compute("max(起落架次)", "姓名 = '" & dr(c) & "'") + dr("起落架次")
            End If
        End If
    Next
Next