以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  求教  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=1736)

--  作者:hejfen
--  发布时间:2009/2/5 9:25:00
--  求教
在表“考核表”中填入“月份”、“姓名”,自动填入“正常工作日_小时“等的统计数据,请问代码如何写?是易表中用刷新公式:SumFor("加班人员表","合计加班天数","实际加班人员姓名","=",[姓名],"加班类型","=","正常工作日","单位"," = ","小时","月份"," = ",[月份])就行了。
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:加班表.table


--  作者:狐狸爸爸
--  发布时间:2009/2/5 10:22:00
--  
例如:

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

--  作者:smileboy
--  发布时间:2009/2/5 10:23:00
--  
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

--  作者:hejfen
--  发布时间:2009/2/5 12:03:00
--  

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


--  作者:smileboy
--  发布时间:2009/2/5 12:05:00
--  
自己加上吧
--  作者:程兴刚
--  发布时间:2009/2/5 12:08:00
--  
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



不知是否正确,没有测试!
--  作者:hejfen
--  发布时间:2009/2/5 14:56:00
--  

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


--  作者:程兴刚
--  发布时间:2009/2/5 15:09:00
--  
以下是引用hejfen在2009-2-5 14:56:00的发言:

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



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


--  作者:hejfen
--  发布时间:2009/2/5 15:37:00
--  

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


--  作者:狐狸爸爸
--  发布时间:2009/2/5 15:42:00
--  
呵呵,磨刀不砍柴工,你不应该现在就急于设计项目,而是需要在反复看几次帮助,特别是关于动态合成表达式的。

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