按照需求做就行了呀Dim dr1 As DataRow = e.DataRow
Select Case e.DataCol.Name
Case "完成数", "计划数", "原数"
If dr1("完成数") Is Nothing OrElse dr1("计划数") Is Nothing OrElse dr1("原数") Is Nothing Then
dr1("完成率") = Nothing
Else
如果 计划数>原数 If dr1("计划数") > dr1("原数")
下面不需要判断为空了，因为前面已经有判断
如果 完成数>计划数 If dr1("完成数") > dr1("计划数")
完成率=dr1("完成数") / dr1("计划数")*1.5 dr1("完成率") = dr1("完成数") / dr1("计划数")*1.5
如果 完成数=计划数 elseIf dr1("完成数") = dr1("计划数")
完成率=dr1("完成数") / dr1("计划数")*1.3 dr1("完成率") = dr1("完成数") / dr1("计划数")*1.3
如果 完成数<计划数 And 完成数<原数 elseIf dr1("完成数") < dr1("计划数") andalso dr1("完成数") < dr1("原数")
……下面全部套用同样的用法，就不再重复了
加好友 
发短信
Post By：2025/4/2 14:19:00 [显示全部帖子]
