以下是引用shixia在2009-4-29 16:55:00的发言：
在DataRowAdding中对登记日期设置默认值时狐表出错并退出，请高手看看．

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

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

是内部表吗?

呵呵,原因是楼主的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 "开票形式"
        If dr("开票形式") = "中心开票" 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)等，都有可能出现等于零的时候（比如，新增行时）。。。