Rss & SiteMap
Foxtable(狐表) http://www.foxtable.com
下载信息 [文件大小: 下载次数: ] | |
点击浏览该文件:认证中心信息管理.table |
下载信息 [文件大小: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 "开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
年度与月份为设为整数与字符哪个好,我不知.呵,我用的字符,如统计一点.
哦,我理解有误!
5楼指点我的设置不合理,请指点!
做分母的Math.abs(sum) 、(Math.abs(sum)-1)等,都有可能出现等于零的时候(比如,新增行时)。。。