Dim sum As Integer For Each dr As DataRow In DataTables("收入").DataRows sum = dr("朱涛")+dr("熊柳雄")+dr("梅鲲鹏")+dr("徐宛婉")+dr("李余")+dr("胡炜烽")+dr("汪家兵") if dr("朱涛") = true And Math.abs(sum) = 3 Then dr("人均案件数")=1/(Math.abs(sum)-1) Else dr("人均案件数")=1/Math.abs(sum) End If Next
加好友 
发短信
Post By：2009/4/29 13:26:00 [显示全部帖子]
