主题：在DataRowAdding中设置默认值时狐表出错并退出？

Dim sum As Integer
sum = dr("朱涛") + dr("熊柳雄") + dr("梅鲲鹏") + dr("徐宛婉") + dr("李余") + dr("胡炜烽") + dr("汪家兵")
if dr("朱涛") = true And Math.abs(sum) = 3 Then
    dr("人均案件数") = 1/(Math.abs(sum)-1)
    dr("案数朱") = nothing
End If

连接符前后要有空格.不知是不是这样.你试试

Dim dr As DataRow = e.DataRow

Dim sum As Integer
sum = dr("朱涛") + dr("熊柳雄") + dr("梅鲲鹏") + dr("徐宛婉") + dr("李余") + dr("胡炜烽") + dr("汪家兵")

Select Case e.DataCol.Name
    case "朱涛"
        if dr("朱涛") = true AndAlso Math.abs(sum) = 3 Then
            dr("人均案件数") = 1/(Math.abs(sum)-1)
            dr("案数朱") = nothing
        Elseif dr("朱涛") = true And Math.abs(sum) <> 3 Then
            dr("人均案件数") = 1/Math.abs(sum)
            dr("案数朱") = dr("人均案件数")
        else
            dr("人均案件数") = 1/Math.abs(sum)
            dr("案数朱") = nothing
        End If
    case "开piao形式"
        If dr("开piao形式") = "中心开piao" Then
            dr("已交财务") = True
        End If
    case "联系人"
        If dr("联系人") = nothing then
            dr("业务分块") = "公有部分"
        Else
            dr("业务分块") = "个人创收"
        end if
end select

增加行中:
dim dr as datarow = e.datarow
dr("作业日期") = Date.Today()
dr("年度")=dr("作业日期").year
dr("月份")=dr("作业日期").Month

年度与月份为设为整数与字符哪个好,我不知.呵,我用的字符,如统计一点.