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

 同样的问题，你问过啊

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