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

在DataRowAdding中对登记日期设置默认值时狐表出错并退出，请高手看看．

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

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

是内部表吗?

确实如此，有问题～ 

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

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

呵呵,原因是楼主的DataColChanged设置不合理!

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

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

哦，我理解有误！

做分母的Math.abs(sum) 、(Math.abs(sum)-1)等，都有可能出现等于零的时候（比如，新增行时）。。。

改一下这段

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