共3 条记录, 每页显示 10 条, 页签:
[1]
[浏览完整版]
标题：请帮忙写代码
1楼
shixia 发表于：2009/4/29 12:56:00写人均案件数的代码：
人均案件数 要求：
（1）计算公式：1/办案人数
（2）条件：一般要求两人或两人以上办案，当朱涛与另两人即共三人办案时，人均案件数为0.5，即朱涛不参与计算；除朱涛参与的三人办案情况之外，其它情况朱涛参与计算。
办案人数＝朱涛+熊柳雄+………那七个逻辑型的数据为TRUE的
人均案件数 要求：
（1）计算公式：1/办案人数
（2）条件：一般要求两人或两人以上办案，当朱涛与另两人即共三人办案时，人均案件数为0.5，即朱涛不参与计算；除朱涛参与的三人办案情况之外，其它情况朱涛参与计算。
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:认证中心信息管理.table |
办案人数＝朱涛+熊柳雄+………那七个逻辑型的数据为TRUE的
[此贴子已经被作者于2009-4-29 12:58:53编辑过]
2楼
八婺 发表于：2009/4/29 13:26:00这样?
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
上面是按钮代码.
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
上面是按钮代码.
3楼
shixia 发表于：2009/4/29 13:40:00谢谢，在事件中怎么写？
共3 条记录, 每页显示 10 条, 页签:
[1]