主题：代码修改

DataTables("计件工资").DataRows.Clear()

For Each xm As String In DataTables("计件明细").GetValues("姓名")
    Dim fdr As DataRow = DataTables("计件工资").find("[姓名] = '" & xm & "'")
    If fdr Is Nothing Then
        fdr = DataTables("计件工资").AddNew
        fdr("姓名") = xm
    End If
    fdr("计件工资") = DataTables("计件明细").compute("sum(计件工资)", "姓名 = '" & xm & "'")
Next
For Each xm As String In DataTables("计时明细").GetValues("姓名")
    Dim fdr As DataRow = DataTables("计件工资").find("[姓名] = '" & xm & "'")
    If fdr Is Nothing Then
        fdr = DataTables("计件工资").AddNew
        fdr("姓名") = xm
    End If
    fdr("计时工资") = DataTables("计时明细").compute("sum(计时工资)", "姓名 = '" & xm & "'")
Next
For Each xm As String In DataTables("其它明细").GetValues("姓名")
    Dim fdr As DataRow = DataTables("计件工资").find("[姓名] = '" & xm & "'")
    If fdr Is Nothing Then
        fdr = DataTables("计件工资").AddNew
        fdr("姓名") = xm
    End If
    fdr("扣保险") = DataTables("其它明细").compute("sum(扣保险)", "姓名 = '" & xm & "'")
    fdr("扣房租") = DataTables("其它明细").compute("sum(扣房租)", "姓名 = '" & xm & "'")
Next

某人某月等等条件，那就修改红色代码

Dim filter1 As String = "姓名='张三' and 日期 >= #2017-08-01# and 日期 < #2017-09-01#"

Dim filter2 As String = "日期 >= #2017-08-01# and 日期 < #2017-09-01#"

For Each xm As String In DataTables("计件明细").GetValues("姓名", filter1)

    fdr("计件工资") = DataTables("计件明细").compute("sum(计件工资)", "姓名 = '" & xm & "' and " & filter2)

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