主题：数据统计，求助

呵呵，问题不能这样提的，我连你要什么都不知道，怎么帮助你呢？

要说明我要实现什么目的，在什么地方设置了什么代码，正确的结果应该是什么，现在的情况是什么。

此外问题最好一个一个来，如果有统计和打印，就先搞定统计。

你的问题越清晰明了，别人也就越容易帮助到你。

例如，你的A车间，在2013年1月份，有两条记录，有两个本月产量和合格率，在统计表如何体现，直接累加？

做个按钮，代码为：

For Each dr As DataRow In DataTables("合格率统计表").DataRows
    If dr.IsNull("月份") OrElse dr.IsNull("部门描述") Then
        Continue For
    End If
    Dim y As Integer= Date.Today.year
    Dim m As Integer = dr("月份")
    Dim d1 As Date = new Date(y,m,Date.DaysInMonth(y,m))
    Dim d2 As Date = new Date(y-1,m,Date.DaysInMonth(y,m))
    Dim dr1 As DataRow = DataTables("合格率表").find("日期 = #" & d1 & "# And 部门描述 = '" & dr("部门描述") & "'" )
    Dim dr2 As DataRow = DataTables("合格率表").find("日期 = #" & d2 & "# And 部门描述 = '" & dr("部门描述") & "'" )
    If dr1 IsNot Nothing Then
        dr("年_本月产量") = dr1("本月产量")
        dr("年_本月合格率") = dr1("本月合格率")
    End If
    If dr2 IsNot Nothing
        dr("年1_本月产量") = dr2("本月产量")
        dr("年_本月合格率") = dr2("本月合格率")
    End If
Next

统计表要先输入月份和部门描述，然后单击按钮

DataTables("合格率统计表").DataRows.clear

Dim f As New Filler
f.SourceTable = DataTables("合格率表") '指定数据来源
f.SourceCols = "日期,部门描述" '指定数据来源列
f.DataTable = DataTables("合格率统计表") '指定数据接收表
f.DataCols = "月份,部门描述" '指定数据接收列
f.Distinct = True
f.Fill() '填充数据

For Each dr As DataRow In DataTables("合格率统计表").DataRows
    If dr.IsNull("月份") OrElse dr.IsNull("部门描述") Then
        Continue For
    End If
    Dim d1 As Date = dr("月份")
    Dim d2 As Date = d1.AddYears(-1)
    Dim dr1 As DataRow = DataTables("合格率表").find("日期 = #" & d1 & "# And 部门描述 = '" & dr("部门描述") & "'" )
    Dim dr2 As DataRow = DataTables("合格率表").find("日期 = #" & d2 & "# And 部门描述 = '" & dr("部门描述") & "'" )
    If dr1 IsNot Nothing Then
        dr("年_本月产量") = dr1("本月产量")
        dr("年_本月合格率") = dr1("本月合格率")
    End If
    If dr2 IsNot Nothing
        dr("年1_本月产量") = dr2("本月产量")
        dr("年_本月合格率") = dr2("本月合格率")
    End If
Next

你设置列属性就行了：

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

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