主题：新人再次求教－顺序查找的问题－2

参考

http://www.foxtable.com/webhelp/scr/1451.htm

请上传具体的项目测试，需要额外编写代码。

切换表的时候统计数据

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目2.table

不可以这样。相同的结算日期和泵车编号，你有多条重复的数据，不知道你要引用哪一条数据。不然，就全部数据都输出来。

不明白你的用意。如果重复的值有5行，你希望如何处理？你只需要第一行和最后一行？

修改datacolchanged事件代码

Select Case e.DataCol.name
    Case "结算日期","泵车编号"
        Dim drs1 = e.DataTable.Select("结算日期='" & e.DataRow("结算日期") & "' and 泵车编号='" & e.DataRow("泵车编号") & "'")
        Dim drs = DataTables("明细根表").Select("结算日期='" & e.DataRow("结算日期") & "' and 泵车编号='" & e.DataRow("泵车编号") & "'")
        For Each cdr As DataRow In drs
            Dim flag As Boolean = True
            For Each dr As DataRow In drs1
                If cdr("运输名称") = dr("运输名称") Then
                    flag = False
                    Exit For
                End If
            Next
            If flag Then
                e.DataRow("销档") = cdr("销档")
                e.DataRow("运输名称") = cdr("运输名称")
                e.DataRow("销售名称") = cdr("销售名称")
            End If
        Next
End Select
Select Case e.DataCol.name
    Case "结算日期","销档","泵车编号","运输名称","销售名称"
        Dim Filter As String = "结算日期='" & e.DataRow("结算日期") & "' and 销档='" & e.DataRow("销档") & "' and 泵车编号='" & e.DataRow("泵车编号") & "' and 运输名称='" & e.DataRow("运输名称") & "' and 销售名称='" & e.DataRow("销售名称") & "'"
        e.DataRow("销售总量") = DataTables("明细根表").Compute("Sum(销售方量)", Filter)
End Select