- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 计算的问题？谢谢！ (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=161336)
-- 发布时间：2021/3/13 15:34:00
-- 计算的问题？谢谢！
If e.DataCol.name="出勤" Then
e.DataRow("加班")= e.DataRow("出勤")* 15
End If
希望：’多出一个判定标准→（星级）列
’星级一：加班为 "出勤")* 15
’星级二：加班为 "出勤")* 20
’星级三：加班为 "出勤")* 30
If e.DataCol.name="出勤" Then
e.DataRow("业务")= e.DataRow("出勤")* 7.69
End If
希望：多出一个判定标准→（星级）列
星级一：业务为 。。。 "出勤")* 15
星级二：业务为 。。。。 "出勤")* 20
星级三：业务为 。。。。 "出勤")* 30
Select Case e.DataCol.Name
Case "应出勤","出勤"
Dim dr As DataRow = e.DataRow
If dr("出勤") >= dr("应出勤") Then
dr("全勤") = 400 \'dr("出勤") * 7.69
dr("基本工资")= 1750
dr("职务")= 400
Else
dr("全勤") = 0
dr("基本工资")= e.DataRow("出勤")* 67.30
dr("职务")= e.DataRow("出勤")* 15.38 \'e.DataRow("数量")
End If
End Select
’希望：
多出一个判定标准→（星级）列
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:计算1.foxdb |
多出一个判定标准→（星级）列
’星级一：dr("基本工资")= 1750
’星级二：dr("基本工资")= 2050
’星级三：dr("基本工资")= 2550
-- 发布时间：2021/3/13 16:19:00
--
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:计算1.zip |
-- 发布时间：2021/3/13 16:45:00
--
谢谢！
下面的代码，怎么增加??
多出一个判定标准→（星级）列 ’星级一：dr("基本工资")= 1750 ’星级二：dr("基本工资")= 2050 ’星级三：dr("基本工资")= 2550 |
Select Case e.DataCol.Name
Case "应出勤","出勤"
Dim dr As DataRow = e.DataRow
If dr("出勤") >= dr("应出勤") Then
dr("全勤") = 400 \'dr("出勤") * 7.69
dr("基本工资")= 1750
dr("职务")= 400
Else
dr("全勤") = 0
dr("基本工资")= e.DataRow("出勤")* 67.30
dr("职务")= e.DataRow("出勤")* 15.38 \'e.DataRow("数量")
End If
End Select
-- 发布时间：2021/3/13 17:00:00
--
用法一样呀
Select Case e.DataRow("星级")
Case "一星"
e.DataRow("基本工资")= 1750
Case "二星"
e.DataRow("基本工资")= 2050
Case "三星"
e.DataRow("基本工资")= 2550
End Select
-- 发布时间：2021/3/13 17:20:00
--
Select Case e.DataCol.Name
Case "应出勤","出勤"
Dim dr As DataRow = e.DataRow
If dr("出勤") >= dr("应出勤") Then
dr("全勤") = 400 \'dr("出勤") * 7.69
dr("基本工资")= 1750
dr("职务")= 400
Else
dr("全勤") = 0
dr("基本工资")= e.DataRow("出勤")* 67.30
dr("职务")= e.DataRow("出勤")* 15.38 \'e.DataRow("数量")
End If
End Select
Select Case e.DataRow("星级")
Case "一星"
e.DataRow("基本工资")= 1750
Case "二星"
e.DataRow("基本工资")= 2050
Case "三星"
e.DataRow("基本工资")= 2550
End Select
我是想吧这两段代码整合在一起。
-- 发布时间：2021/3/13 17:34:00
--
Select Case e.DataCol.Name
Case "应出勤","出勤"
Dim dr As DataRow = e.DataRow
If dr("出勤") >= dr("应出勤") Then
dr("全勤") = 400 \'dr("出勤") * 7.69
Select Case e.DataRow("星级")
Case "一星"
e.DataRow("基本工资")= 1750
Case "二星"
e.DataRow("基本工资")= 2050
Case "三星"
e.DataRow("基本工资")= 2550
End Select
dr("职务")= 400
Else
dr("全勤") = 0
dr("基本工资")= e.DataRow("出勤")* 67.30
dr("职务")= e.DataRow("出勤")* 15.38 \'e.DataRow("数量")
End If
End Select
-- 发布时间：2021/3/13 17:38:00
--
谢谢！