- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助]关于根据列值判断选择设置计算 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=116042)
-- 发布时间：2018/3/19 10:51:00
-- [求助]关于根据列值判断选择设置计算
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:关于根据判断列值选择统计设置.foxdb |
老师好：
关于根据列值大于或小于“0”判断自动选择计算公式，需求在表里已备注，请老师帮做个例子，万分感谢！
谢谢！
-- 发布时间：2018/3/19 11:09:00
--
参考代码
Dim dr As DataRow = e.DataRow
Select Case e.DataCol.Name
Case "年月","姓名"
dr("姓名年月") = dr("年月") & "" & dr("姓名")
End Select
Select Case e.DataCol.Name
Case "年月","姓名", "目标差异", "姓名年月"
Dim fdr As DataRow = DataTables("其他要素").find("姓名年月 = \'" & dr("姓名年月") & "\'")
If fdr IsNot Nothing Then
If dr("目标差异") > 0 Then
dr("应得奖励") = dr("目标差异") / 100 * 30 + fdr("安全绩效") + fdr("品质绩效") + fdr("交期绩效") + fdr("成本控制绩效")
ElseIf dr("目标差异") < 0 Then
dr("应得奖励") = fdr("安全绩效") + fdr("品质绩效") + fdr("交期绩效") + fdr("成本控制绩效") - dr("目标差异") / 100 * 10
End If
End If
End Select
-- 发布时间：2018/3/19 11:55:00
--
谢谢老师，可以了。万分感谢！