主题：自动汇总代码

1、

If e.DataCol.Name = "姓名" OrElse e.dataCol.Name = "年月" Then
    Dim Filter As String = "[姓名] = '" & e.DataRow("姓名") & "' and 年月 = '" & e.datarow("年月") & "'"
    e.DataRow("一倍半加班H") = DataTables("考勤机").Compute("Sum(一倍半加班H)", Filter)
    e.DataRow("二倍加班H") = DataTables("考勤机").Compute("Sum(二倍加班H)", Filter)
    e.DataRow("三倍加班H") = DataTables("考勤机").Compute("Sum(三倍加班H)", Filter)
    e.DataRow("迟到H") = DataTables("考勤机").Compute("Sum(迟到H)", Filter)
    e.DataRow("早退H") = DataTables("考勤机").Compute("Sum(早退H)", Filter)
    e.DataRow("未打卡回") = DataTables("考勤机").Compute("Sum(未打卡回)", Filter)
    e.DataRow("有薪休假H") = DataTables("考勤机").Compute("Sum(有薪休假H)", Filter)
    e.DataRow("事假H") = DataTables("考勤机").Compute("Sum(事假H)", Filter)
    e.DataRow("病假H") = DataTables("考勤机").Compute("Sum(病假H)", Filter)
End If

2、用代码填充

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

可以写到AfterOpenProject事件。

设置属性为true

ExcludeExistValue

逻辑型，设为True，排除接收表中已经存在的内容。