主题：[求助]查询表分组统计

现在有两张表，一张考勤表，一张日产表。用查询表生成月产表，合计每位员工的产值、上班时间、加班时间。但是用EXCEL模板导出的话，发现一天内如果做了很多项目的话，上班时间和加班时间会多统计。

 同样的问题，你问过啊

 

Dim t As Table = Tables("查询表")
Dim cs As String = "员工,日期"
t.sort = cs
Dim pdr As Row
For Each dr As Row In t.Rows
    Dim flag As Boolean = False
    If pdr IsNot Nothing Then
        For Each c As String In cs.split(",")
            If pdr(c) <> dr(c) Then
                flag = True
                Exit For
            End If
        Next
       
        If flag Then
           
        Else
            output.show(dr("员工") & dr("上班时间"))
            dr("上班时间") = Nothing
            dr("加班时间") = Nothing
        End If
    End If
    pdr = dr
   
Next

 

http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=104277&skin=0