请教统计问题 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

为什么不用交叉统计？

Dim g As New CrossTableBuilder("统计表1", DataTables("喷涂车间工资表"))
g.HGroups.AddDef("姓名")
g.VGroups.AddDef("日期", DateGroupEnum.None)
g.Totals.AddDef("计时工时", "计时工时")
g.Totals.AddDef("总金额", "总金额")
g.Build()
MainTable = Tables("统计表1")

你直接用代码统计也可以啊

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

加条件

Dim d As Date = New Date(2016, 2,1)

g.Filter = "日期 >= #" & d & "# and 日期 < #" & d.AddMonths(1) & "#"
g.Build()
MainTable = Tables("统计表1")

TextChanged事件

金额列统计的是总金额啊，你可以改成你对应的计时金额列啊

g.Totals.AddDef("总金额", "总金额")

汗，什么都要别人帮你做

Dim d As Date
If Date.TryParse(e.sender.text, d) Then
    Dim g As New CrossTableBuilder("统计表1", DataTables("喷涂车间工资表"))
    g.HGroups.AddDef("姓名")
    g.VGroups.AddDef("日期", DateGroupEnum.None)
    g.Totals.AddDef("计时工时", "计时工时")

    d = New Date(d.year, d.month, 1)

    g.Filter = "日期 >= #" & d & "# and 日期 < #" & d.AddMonths(1) & "#"
    Dim t As Table = e.Form.controls("table1").Table
    t.StopRedraw
    t.datasource = g.BuildDataSource
    t.DataTable.DataCols.add("数据", Gettype(String))
    t.DataTable.ReplaceFor("数据", "工时")

    g = New CrossTableBuilder("统计表1", DataTables("喷涂车间工资表"))
    g.HGroups.AddDef("姓名")
    g.VGroups.AddDef("日期", DateGroupEnum.None)
    g.Totals.AddDef("总金额", "总金额")

    g.Filter = "日期 >= #" & d & "# and 日期 < #" & d.AddMonths(1) & "#"
    g.Build
    For Each r As Row In Tables("统计表1").Rows
        Dim nr As Row = t.AddNew
        For i As Integer = 0 To t.Cols.count - 2
            nr(i) = r(i)
        Next
        nr("数据") = "金额"
    Next
    t.DataTable.DataCols.add("小计", Gettype(Double))
    For Each r As Row In t.Rows
        Dim sum As Double = 0
        For i As Integer = 1 To t.Cols.count - 3
            sum += r(i)
        Next
        r("小计") = sum
    Next
    t.Cols("数据").Move(1)
    t.sort = "姓名,数据"
    t.DataTable.DataCols.Add("_Sortkey", Gettype(Double))
    For Each r As Row In t.Rows

        r("_Sortkey") = r.Index
    Next
    t.sort = ""

    Dim r1 As Row = t.AddNew
    Dim r2 As Row = t.AddNew
    r1("姓名") = "工时汇总"
    r1("_Sortkey") = t.Rows.count
    r2("姓名") = "金额汇总"
    r2("_Sortkey") = t.Rows.count + 1


    For i As Integer = 0 To t.Cols.count - 1
        If t.Cols(i).IsNumeric Then
            r1(i) = t.Compute("sum(" & t.Cols(i).name & ")", "数据 = '工时'")
            r2(i) = t.Compute("sum(" & t.Cols(i).name & ")", "数据 = '金额'")
        End If
    Next
    t.ResumeRedraw
End If

条件加载这里

g.Filter = "日期 >= #" & d & "# and 日期 < #" & d.AddMonths(1) & "#"

改成

g.Filter = "日期 >= #" & d & "# and 日期 < #" & d.AddMonths(1) & "# and 姓名 Is not null"

主题：请教统计问题