Rss & SiteMap

Foxtable(狐表) http://www.foxtable.com

新一代数据库软件,完美融合Access、Foxpro、Excel、vb.net之优势,人人都能掌握的快速软件开发工具!
共10 条记录, 每页显示 10 条, 页签: [1]
[浏览完整版]

标题:在DataRowAdding中设置默认值时狐表出错并退出?

1楼
shixia 发表于:2009/4/29 16:55:00
在DataRowAdding中对登记日期设置默认值时狐表出错并退出,请高手看看.
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:认证中心信息管理.table

2楼
blackzhu 发表于:2009/4/29 17:24:00
以下是引用shixia在2009-4-29 16:55:00的发言:
在DataRowAdding中对登记日期设置默认值时狐表出错并退出,请高手看看.
 下载信息  [文件大小:400.0 KB  下载次数:9]
图片点击可在新窗口打开查看点击浏览该文件:认证中心信息管理.table

是内部表吗?

3楼
mr725 发表于:2009/4/29 17:34:00
确实如此,有问题~ 
4楼
狐哥 发表于:2009/4/29 17:40:00
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

连接符前后要有空格.不知是不是这样.你试试
5楼
ybil 发表于:2009/4/29 17:40:00

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

6楼
狐哥 发表于:2009/4/29 17:54:00

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

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

[此贴子已经被作者于2009-4-29 17:56:43编辑过]
7楼
shixia 发表于:2009/4/29 20:39:00

5楼指点我的设置不合理,请指点!

8楼
程兴刚 发表于:2009/4/29 21:08:00

哦,我理解有误!

[此贴子已经被作者于2009-4-29 21:10:38编辑过]
9楼
mr725 发表于:2009/4/29 22:59:00
以下是引用shixia在2009-4-29 20:39:00的发言:

5楼指点我的设置不合理,请指点!

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

10楼
八婺 发表于:2009/4/30 0:53:00
改一下这段

Dim sum As Integer
sum = dr("朱涛")+dr("熊柳雄")+dr("梅鲲鹏")+dr("徐宛婉")+dr("李余")+dr("胡炜烽")+dr("汪家兵")
if sum < 0 Then
……
[此贴子已经被作者于2009-4-30 0:53:21编辑过]
共10 条记录, 每页显示 10 条, 页签: [1]

Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号

Powered By Dvbbs Version 8.3.0
Processed in .02930 s, 3 queries.