以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  求计算公式  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=5319)
--  作者：wqc360
--  发布时间：2009/12/7 17:08:00
--  求计算公式
见附件，要求班组考勤表中效率系数列和劳逸系数列计算代码：
当班组列为A时，效率系数=效率/0.8；劳逸系数=装夹/出勤/0.35.
当班组列为B时，效率系数=效率/0.9；劳逸系数=装夹/出勤/0.25.
当班组列为A时，效率系数=效率/0.8；劳逸系数=1.

                
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目1.table
--  作者：czy
--  发布时间：2009/12/7 17:42:00
--  
\'DataColChanged事件代码
Dim dr As DataRow = e.DataRow
Select Case e.DataCol.Name
    Case "班组","出勤","装夹","效率"
        Select Case dr("班组")
            Case "A"
                dr("效率系数") = dr("效率") / 0.8
                dr("劳逸系数") = dr("装夹") / dr("出勤") / 0.35
            Case "B"
                dr("效率系数") = dr("效率") / 0.9
                dr("劳逸系数") = dr("装夹") / dr("出勤") / 0.25
            Case "C"
                dr("效率系数") = dr("效率") / 0.8
                dr("劳逸系数") = 1
        End Select
End Select
--  作者：wqc360
--  发布时间：2009/12/7 17:45:00
--  
谢谢C版