主题：请帮忙写代码

写人均案件数的代码：
人均案件数 要求：
（1）计算公式：1/办案人数
（2）条件：一般要求两人或两人以上办案，当朱涛与另两人即共三人办案时，人均案件数为0.5，即朱涛不参与计算；除朱涛参与的三人办案情况之外，其它情况朱涛参与计算。

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:认证中心信息管理.table

办案人数＝朱涛+熊柳雄+………那七个逻辑型的数据为TRUE的

这样?

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

上面是按钮代码.

谢谢，在事件中怎么写？