主题：求教

在表“考核表”中填入“月份”、“姓名”，自动填入“正常工作日_小时“等的统计数据，请问代码如何写？是易表中用刷新公式：SumFor("加班人员表","合计加班天数","实际加班人员姓名","=",[姓名],"加班类型","=","正常工作日","单位"," = ","小时","月份"," = ",[月份])就行了。

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:加班表.table

例如：

Dim dr As DataRow = e.DataRow
Dim dt As DataTable =DataTables("加班人员表")
If e.DataCol.Name = "月份"  OrElse  e.DataCol.Name = "姓名"  Then
    If e.DataRow.IsNull("月份") OrElse e.DataRow.IsNull("姓名") Then
        e.DataRow("正常工作日加班_小时") = Nothing
        '...清空其他计算字段
    Else
        e.DataRow("正常工作日加班_小时") = dt.Compute("Sum(合计加班时间)","[月份] = '" & dr("月份") & "' And [实际加班人员姓名] = '" & dr("姓名") & "'")
        '...计算其他字段
    End if
End If

Dim dr As DataRow = e.DataRow
Dim dt As DataTable =DataTables("加班人员表")
If e.DataCol.Name = "月份" OrElse e.DataCol.Name = "姓名"
    if e.DataRow.IsNull("月份") OrElse e.DataRow.IsNull("姓名") Then
        e.DataRow("正常工作日加班_小时") = Nothing
    Else
        e.DataRow("正常工作日加班_小时") = dt.Compute("Sum(合计加班时间)","[月份] = '" & dr("月份") & "' And [实际加班人员姓名] = '" & dr("姓名") & "'")
    End If
End If

还有二个个条件，是加班人员表的“加班类型”=“正常工作日”、“单位”=“小时”

自己加上吧

Dim dr As DataRow = e.DataRow
Dim dt As DataTable =DataTables("加班人员表")
If e.DataCol.Name = "月份" OrElse e.DataCol.Name = "姓名"
    if e.DataRow.IsNull("月份") OrElse e.DataRow.IsNull("姓名") Then
        e.DataRow("正常工作日加班_小时") = Nothing
    Else
        e.DataRow("正常工作日加班_小时") = dt.Compute("Sum(合计加班时间)","[月份] = '" & dr("月份") & "' And [实际加班人员姓名] = '" & dr("姓名") &  "' And [加班类型] = '" & dr("正常工作日") & "' And [单位] = '" & dr("小时") &"'")
    End If
End If


不知是否正确，没有测试！

出错，因为该表没有“加班类型”列和“单位”列

    真是晕，您4楼怎么说的，不是您要增加条件吗？您添加那两个列不就可以了？

 And [加班类型] = '" & dr("正常工作日") & "' And [单位] = '" & dr("小时") &"'")  就是这里搞不懂啊，
是不是要改成dt("加班类型"）[单位]改成dt("单位")，但都是出错啊。

呵呵，磨刀不砍柴工，你不应该现在就急于设计项目，而是需要在反复看几次帮助，特别是关于动态合成表达式的。

e.DataRow("正常工作日加班_小时") = dt.Compute("Sum(合计加班时间)","[月份] = '" & dr("月份") & "' And [实际加班人员姓名] = '" & dr("姓名") & "' And [加班类型] = '正常工作日' And [单位] = '小时'"