Foxtable(狐表) → 用户栏目 → 专家坐堂 → 求解：新增按钮事件，拟增加关联表数据，结果一点按钮就关闭了整个项目！


  共有4560人关注过本帖树形打印复制链接

主题：求解：新增按钮事件，拟增加关联表数据，结果一点按钮就关闭了整个项目！
帅哥哟，离线，有人找我吗？
blackzhu
 小大  1楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级：狐仙 帖子：9879 积分：57634 威望：0 精华：15 注册：2008/9/1 9:45:00 		  发帖心情 Post By：2014/6/17 7:42:00 [显示全部帖子]

首先个人认为你的这个结构设计的太不合理了  应该是用列表形式


第二个 表事件请判断下列名,不然死循环.
 回到顶部
帅哥哟，离线，有人找我吗？
blackzhu
 小大  2楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级：狐仙 帖子：9879 积分：57634 威望：0 精华：15 注册：2008/9/1 9:45:00 		  发帖心情 Post By：2014/6/17 8:05:00 [显示全部帖子]

严重的不合理的结构,试试这样:

表事件  DataColChanged

Select Case e.DataCol.Name
    Case "工具1_数量","工具1_单价"
        e.DataRow("工具1_总费用")=e.DataRow("工具1_数量")*e.DataRow("工具1_单价")
End Select
Select Case e.DataCol.Name
    Case "工具2_数量","工具2_单价"
        e.DataRow("工具2_总费用")=e.DataRow("工具2_数量")*e.DataRow("工具2_单价")
End Select
Select Case e.DataCol.Name
    Case "工具3_数量","工具3_单价"
        e.DataRow("工具3_总费用")=e.DataRow("工具3_数量")*e.DataRow("工具3_单价")
End Select
Select Case e.DataCol.Name
    Case "工具4_数量","工具4_单价"
        e.DataRow("工具4_总费用")=e.DataRow("工具4_数量")*e.DataRow("工具4_单价")
End Select
Select Case e.DataCol.Name
    Case "工具5_数量","工具5_单价"
        e.DataRow("工具5_总费用")=e.DataRow("工具5_数量")*e.DataRow("工具5_单价")
End Select
Select Case e.DataCol.Name
    Case "工具6_数量","工具6_单价"
        e.DataRow("工具6_总费用")=e.DataRow("工具6_数量")*e.DataRow("工具6_单价")
End Select
Select Case e.DataCol.Name
    Case "工具7_数量","工具7_单价"
        e.DataRow("工具7_总费用")=e.DataRow("工具7_数量")*e.DataRow("工具7_单价")
End Select
Select Case e.DataCol.Name
    Case "工具8_数量","工具8_单价"
        e.DataRow("工具8_总费用")=e.DataRow("工具8_数量")*e.DataRow("工具8_单价")
End Select
Select Case e.DataCol.Name
    Case "工具9_数量","工具9_单价"
        e.DataRow("工具9_总费用")=e.DataRow("工具9_数量")*e.DataRow("工具9_单价")
End Select
Select Case e.DataCol.Name
    Case "工具1_总费用","工具2_总费用","工具3_总费用","工具4_总费用","工具5_总费用","工具6_总费用"
        e.DataRow("折旧项目1_价值")=e.DataRow("工具1_总费用")+e.DataRow("工具2_总费用")+e.DataRow("工具3_总费用")+e.DataRow("工具4_总费用")+e.DataRow("工具5_总费用")+e.DataRow("工具6_总费用")+e.DataRow("工具7_总费用")+e.DataRow("工具8_总费用")+e.DataRow("工具9_总费用")
End Select
Select Case e.DataCol.Name
    Case "交通工具1_数量","交通工具1_单价"
        e.DataRow("交通工具1_总费用")=e.DataRow("交通工具1_数量")*e.DataRow("交通工具1_单价")
End Select
Select Case e.DataCol.Name
    Case "交通工具2_数量","交通工具2_单价"
        e.DataRow("交通工具2_总费用")=e.DataRow("交通工具2_数量")*e.DataRow("交通工具2_单价")
End Select
Select Case e.DataCol.Name
    Case "交通工具3_数量","交通工具3_单价"
        e.DataRow("交通工具3_总费用")=e.DataRow("交通工具3_数量")*e.DataRow("交通工具3_单价")
End Select
Select Case e.DataCol.Name
    Case "交通工具4_数量","交通工具4_单价"
        e.DataRow("交通工具4_总费用")=e.DataRow("交通工具4_数量")*e.DataRow("交通工具4_单价")
End Select
Select Case e.DataCol.Name
    Case "交通工具1_总费用","交通工具2_总费用","交通工具3_总费用"
        e.DataRow("折旧项目2_价值")=e.DataRow("交通工具1_总费用")+e.DataRow("交通工具2_总费用")+e.DataRow("交通工具3_总费用")+e.DataRow("交通工具4_总费用")
End Select

Select Case e.DataCol.Name
    Case "办公家具设备1_数量","办公家具设备1_单价"
        e.DataRow("办公家具设备1_总费用")=e.DataRow("办公家具设备1_数量")*e.DataRow("办公家具设备1_单价")
End Select
Select Case e.DataCol.Name
    Case "办公家具设备2_数量","办公家具设备2_单价"
        e.DataRow("办公家具设备2_总费用")=e.DataRow("办公家具设备2_数量")*e.DataRow("办公家具设备2_单价")
End Select
Select Case e.DataCol.Name
    Case "办公家具设备3_数量","办公家具设备3_单价"
        e.DataRow("办公家具设备3_总费用")=e.DataRow("办公家具设备3_数量")*e.DataRow("办公家具设备3_单价")
End Select
Select Case e.DataCol.Name
    Case "办公家具设备4_数量","办公家具设备4_单价"
        e.DataRow("办公家具设备4_总费用")=e.DataRow("办公家具设备4_数量")*e.DataRow("办公家具设备4_单价")
End Select
Select Case e.DataCol.Name
    Case "办公家具设备5_数量","办公家具设备5_单价"
        e.DataRow("办公家具设备5_总费用")=e.DataRow("办公家具设备5_数量")*e.DataRow("办公家具设备5_单价")
End Select
Select Case e.DataCol.Name
    Case "办公家具设备6_数量","办公家具设备6_单价"
        e.DataRow("办公家具设备6_总费用")=e.DataRow("办公家具设备6_数量")*e.DataRow("办公家具设备6_单价")
End Select
Select Case e.DataCol.Name
    Case "办公家具设备1_总费用","办公家具设备2_总费用","办公家具设备3_总费用","办公家具设备4_总费用","办公家具设备5_总费用","办公家具设备6_总费用"
        e.DataRow("折旧项目3_价值")=e.DataRow("办公家具设备1_总费用")+e.DataRow("办公家具设备2_总费用")+e.DataRow("办公家具设备3_总费用")+e.DataRow("办公家具设备4_总费用")+e.DataRow("办公家具设备5_总费用")+e.DataRow("办公家具设备6_总费用")
End Select

Select Case e.DataCol.Name
    Case "原材料1_数量","原材料1_单价"
        e.DataRow("原材料1_总费用")=e.DataRow("原材料1_数量")*e.DataRow("原材料1_单价")
End Select
Select Case e.DataCol.Name
    Case "原材料2_数量","原材料2_单价"
        e.DataRow("原材料2_总费用")=e.DataRow("原材料2_数量")*e.DataRow("原材料2_单价")
End Select
Select Case e.DataCol.Name
    Case "原材料3_数量","原材料3_单价"
        e.DataRow("原材料3_总费用")=e.DataRow("原材料3_数量")*e.DataRow("原材料3_单价")
End Select
Select Case e.DataCol.Name
    Case "原材料4_数量","原材料4_单价"
        e.DataRow("原材料4_总费用")=e.DataRow("原材料4_数量")*e.DataRow("原材料4_单价")
End Select
Select Case e.DataCol.Name
    Case "原材料5_数量","原材料5_单价"
        e.DataRow("原材料5_总费用")=e.DataRow("原材料5_数量")*e.DataRow("原材料5_单价")
End Select
Select Case e.DataCol.Name
    Case "原材料6_数量","原材料6_单价"
        e.DataRow("原材料6_总费用")=e.DataRow("原材料6_数量")*e.DataRow("原材料6_单价")
End Select

表事件的:DataRowAdding

e.DataRow("折旧项目1_名称")="工具和设备"
e.DataRow("折旧项目2_名称")="交通工具"
e.DataRow("折旧项目3_名称")="办公家具和设备"
e.DataRow("折旧项目4_名称")="店铺"
e.DataRow("折旧项目5_名称")="厂房"
e.DataRow("折旧项目6_名称")="土地"
e.DataRow("折旧项目7_名称")="开办费"
e.DataRow("折旧项目8_名称")=""
e.DataRow("折旧项目9_名称")=""
e.DataRow("折旧项目10_名称")=""
e.DataRow("经营费用1_名称")="业主的工资"
e.DataRow("经营费用2_名称")="雇员工资"
e.DataRow("经营费用3_名称")="租金"
e.DataRow("经营费用4_名称")="营销费用"
e.DataRow("经营费用5_名称")="公用事业费"
e.DataRow("经营费用6_名称")="维修费"
e.DataRow("经营费用7_名称")="保险费"
e.DataRow("经营费用8_名称")="登记注册费"
e.DataRow("经营费用9_名称")="其他"
e.DataRow("经营费用10_名称")="合计"
e.DataRow("经营费用1_备注")="老板也要发工资"
e.DataRow("经营费用2_备注")="员工工资 按月计算"
e.DataRow("经营费用3_备注")="店铺租金"
e.DataRow("经营费用4_备注")="广告 公共关系 营业推广 人员推销"
e.DataRow("经营费用5_备注")="水电费 办公耗材费 "
e.DataRow("经营费用6_备注")="设备维修"
e.DataRow("经营费用7_备注")="业主及员工的保险费"
e.DataRow("经营费用8_备注")="企业执照登记注册费用"
e.DataRow("经营费用9_备注")="其他相关费用"
 回到顶部
帅哥哟，离线，有人找我吗？
blackzhu
 小大  3楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级：狐仙 帖子：9879 积分：57634 威望：0 精华：15 注册：2008/9/1 9:45:00 		  发帖心情 Post By：2014/6/17 9:06:00 [显示全部帖子]

11楼需要判断列名呀!   你还是乘早改结构吧

 回到顶部
帅哥哟，离线，有人找我吗？
blackzhu
 小大  4楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级：狐仙 帖子：9879 积分：57634 威望：0 精华：15 注册：2008/9/1 9:45:00 		  发帖心情 Post By：2014/6/17 9:26:00 [显示全部帖子]

你这个错误不是很简单就能修改了,

为啥是执行当前行的计算
[此贴子已经被作者于2014-6-17 9:29:30编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
blackzhu
 小大  5楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级：狐仙 帖子：9879 积分：57634 威望：0 精华：15 注册：2008/9/1 9:45:00 		  发帖心情 Post By：2014/6/17 9:55:00 [显示全部帖子]

新增行:

e.DataRow("折旧项目1_名称")="工具和设备"
e.DataRow("折旧项目2_名称")="交通工具"
e.DataRow("折旧项目3_名称")="办公家具和设备"
e.DataRow("折旧项目4_名称")="店铺"
e.DataRow("折旧项目5_名称")="厂房"
e.DataRow("折旧项目6_名称")="土地"
e.DataRow("折旧项目7_名称")="开办费"
e.DataRow("折旧项目8_名称")=""
e.DataRow("折旧项目9_名称")=""
e.DataRow("折旧项目10_名称")=""
e.DataRow("经营费用1_名称")="业主的工资"
e.DataRow("经营费用2_名称")="雇员工资"
e.DataRow("经营费用3_名称")="租金"
e.DataRow("经营费用4_名称")="营销费用"
e.DataRow("经营费用5_名称")="公用事业费"
e.DataRow("经营费用6_名称")="维修费"
e.DataRow("经营费用7_名称")="保险费"
e.DataRow("经营费用8_名称")="登记注册费"
e.DataRow("经营费用9_名称")="其他"
e.DataRow("经营费用10_名称")="合计"
e.DataRow("经营费用1_备注")="老板也要发工资"
e.DataRow("经营费用2_备注")="员工工资 按月计算"
e.DataRow("经营费用3_备注")="店铺租金"
e.DataRow("经营费用4_备注")="广告 公共关系 营业推广 人员推销"
e.DataRow("经营费用5_备注")="水电费 办公耗材费 "
e.DataRow("经营费用6_备注")="设备维修"
e.DataRow("经营费用7_备注")="业主及员工的保险费"
e.DataRow("经营费用8_备注")="企业执照登记注册费用"
e.DataRow("经营费用9_备注")="其他相关费用"

Dim r As Row =Tables("企业概况.企业组织").Current
Dim r2 As Row =Tables("企业概况").Current
Dim r3 As Row =Tables("企业概况.固定资产折旧流动资金").Current
e.DataRow("经费费用1_费用")= r("业主或经理_月薪")
e.DataRow("经营费用2_费用")=r("员工1_月薪")+r("员工2_月薪")+r("员工3_月薪")
e.DataRow("经营费用4_费用")=r2("人员推销_成本")+r2("广告_成本")+r2("公共关系_成本")+r2("营业推广_成本")
e.DataRow("经营费用3_费用")=r2("选址1_租金")
e.DataRow("经营费用7_费用")=r("责任1_费用")
e.DataRow("经营费用8_费用")=(r("执照1_费用")+r("执照2_费用")+r("执照3_费用")+r("执照4_费用"))/12
e.DataRow("折旧项目1_价值")=r3("工具1_总费用")+r3("工具2_总费用")+r3("工具3_总费用")+r3("工具4_总费用")+r3("工具5_总费用")+r3("工具6_总费用")
e.DataRow("折旧项目2_价值")=r3("交通工具1_总费用")+r3("交通工具2_总费用")+r3("交通工具3_总费用")
e.DataRow("折旧项目3_价值")=r3("办公家具设备1_总费用")+r3("办公家具设备2_总费用")+r3("办公家具设备3_总费用")+r3("办公家具设备4_总费用")+r3("办公家具设备5_总费用")+r3("办公家具设备6_总费用")
e.DataRow("折旧项目4_价值")=r2("选址2_租金")

e.DataRow("折旧项目合计价值")=r3("折旧项目1_价值")+r3("折旧项目2_价值")+r3("折旧项目3_价值")+r3("折旧项目4_价值")+r3("折旧项目5_价值")+r3("折旧项目6_价值")+r3("折旧项目7_价值")+r3("折旧项目8_价值")+r3("折旧项目9_价值")+r3("折旧项目10_价值")

触发列:


Select Case e.DataCol.Name
    Case "工具1_数量","工具1_单价"
        e.DataRow("工具1_总费用")=e.DataRow("工具1_数量")*e.DataRow("工具1_单价")
End Select
Select Case e.DataCol.Name
    Case "工具2_数量","工具2_单价"
        e.DataRow("工具2_总费用")=e.DataRow("工具2_数量")*e.DataRow("工具2_单价")
End Select
Select Case e.DataCol.Name
    Case "工具3_数量","工具3_单价"
        e.DataRow("工具3_总费用")=e.DataRow("工具3_数量")*e.DataRow("工具3_单价")
End Select
Select Case e.DataCol.Name
    Case "工具4_数量","工具4_单价"
        e.DataRow("工具4_总费用")=e.DataRow("工具4_数量")*e.DataRow("工具4_单价")
End Select
Select Case e.DataCol.Name
    Case "工具5_数量","工具5_单价"
        e.DataRow("工具5_总费用")=e.DataRow("工具5_数量")*e.DataRow("工具5_单价")
End Select
Select Case e.DataCol.Name
    Case "工具6_数量","工具6_单价"
        e.DataRow("工具6_总费用")=e.DataRow("工具6_数量")*e.DataRow("工具6_单价")
End Select
Select Case e.DataCol.Name
    Case "工具7_数量","工具7_单价"
        e.DataRow("工具7_总费用")=e.DataRow("工具7_数量")*e.DataRow("工具7_单价")
End Select
Select Case e.DataCol.Name
    Case "工具8_数量","工具8_单价"
        e.DataRow("工具8_总费用")=e.DataRow("工具8_数量")*e.DataRow("工具8_单价")
End Select
Select Case e.DataCol.Name
    Case "工具9_数量","工具9_单价"
        e.DataRow("工具9_总费用")=e.DataRow("工具9_数量")*e.DataRow("工具9_单价")
End Select
Select Case e.DataCol.Name
    Case "工具1_总费用","工具2_总费用","工具3_总费用","工具4_总费用","工具5_总费用","工具6_总费用"
        e.DataRow("折旧项目1_价值")=e.DataRow("工具1_总费用")+e.DataRow("工具2_总费用")+e.DataRow("工具3_总费用")+e.DataRow("工具4_总费用")+e.DataRow("工具5_总费用")+e.DataRow("工具6_总费用")+e.DataRow("工具7_总费用")+e.DataRow("工具8_总费用")+e.DataRow("工具9_总费用")
End Select
Select Case e.DataCol.Name
    Case "交通工具1_数量","交通工具1_单价"
        e.DataRow("交通工具1_总费用")=e.DataRow("交通工具1_数量")*e.DataRow("交通工具1_单价")
End Select
Select Case e.DataCol.Name
    Case "交通工具2_数量","交通工具2_单价"
        e.DataRow("交通工具2_总费用")=e.DataRow("交通工具2_数量")*e.DataRow("交通工具2_单价")
End Select
Select Case e.DataCol.Name
    Case "交通工具3_数量","交通工具3_单价"
        e.DataRow("交通工具3_总费用")=e.DataRow("交通工具3_数量")*e.DataRow("交通工具3_单价")
End Select
Select Case e.DataCol.Name
    Case "交通工具4_数量","交通工具4_单价"
        e.DataRow("交通工具4_总费用")=e.DataRow("交通工具4_数量")*e.DataRow("交通工具4_单价")
End Select
Select Case e.DataCol.Name
    Case "交通工具1_总费用","交通工具2_总费用","交通工具3_总费用"
        e.DataRow("折旧项目2_价值")=e.DataRow("交通工具1_总费用")+e.DataRow("交通工具2_总费用")+e.DataRow("交通工具3_总费用")+e.DataRow("交通工具4_总费用")
End Select

Select Case e.DataCol.Name
    Case "办公家具设备1_数量","办公家具设备1_单价"
        e.DataRow("办公家具设备1_总费用")=e.DataRow("办公家具设备1_数量")*e.DataRow("办公家具设备1_单价")
End Select
Select Case e.DataCol.Name
    Case "办公家具设备2_数量","办公家具设备2_单价"
        e.DataRow("办公家具设备2_总费用")=e.DataRow("办公家具设备2_数量")*e.DataRow("办公家具设备2_单价")
End Select
Select Case e.DataCol.Name
    Case "办公家具设备3_数量","办公家具设备3_单价"
        e.DataRow("办公家具设备3_总费用")=e.DataRow("办公家具设备3_数量")*e.DataRow("办公家具设备3_单价")
End Select
Select Case e.DataCol.Name
    Case "办公家具设备4_数量","办公家具设备4_单价"
        e.DataRow("办公家具设备4_总费用")=e.DataRow("办公家具设备4_数量")*e.DataRow("办公家具设备4_单价")
End Select
Select Case e.DataCol.Name
    Case "办公家具设备5_数量","办公家具设备5_单价"
        e.DataRow("办公家具设备5_总费用")=e.DataRow("办公家具设备5_数量")*e.DataRow("办公家具设备5_单价")
End Select
Select Case e.DataCol.Name
    Case "办公家具设备6_数量","办公家具设备6_单价"
        e.DataRow("办公家具设备6_总费用")=e.DataRow("办公家具设备6_数量")*e.DataRow("办公家具设备6_单价")
End Select
Select Case e.DataCol.Name
    Case "办公家具设备1_总费用","办公家具设备2_总费用","办公家具设备3_总费用","办公家具设备4_总费用","办公家具设备5_总费用","办公家具设备6_总费用"
        e.DataRow("折旧项目3_价值")=e.DataRow("办公家具设备1_总费用")+e.DataRow("办公家具设备2_总费用")+e.DataRow("办公家具设备3_总费用")+e.DataRow("办公家具设备4_总费用")+e.DataRow("办公家具设备5_总费用")+e.DataRow("办公家具设备6_总费用")
End Select

Select Case e.DataCol.Name
    Case "原材料1_数量","原材料1_单价"
        e.DataRow("原材料1_总费用")=e.DataRow("原材料1_数量")*e.DataRow("原材料1_单价")
End Select
Select Case e.DataCol.Name
    Case "原材料2_数量","原材料2_单价"
        e.DataRow("原材料2_总费用")=e.DataRow("原材料2_数量")*e.DataRow("原材料2_单价")
End Select
Select Case e.DataCol.Name
    Case "原材料3_数量","原材料3_单价"
        e.DataRow("原材料3_总费用")=e.DataRow("原材料3_数量")*e.DataRow("原材料3_单价")
End Select
Select Case e.DataCol.Name
    Case "原材料4_数量","原材料4_单价"
        e.DataRow("原材料4_总费用")=e.DataRow("原材料4_数量")*e.DataRow("原材料4_单价")
End Select
Select Case e.DataCol.Name
    Case "原材料5_数量","原材料5_单价"
        e.DataRow("原材料5_总费用")=e.DataRow("原材料5_数量")*e.DataRow("原材料5_单价")
End Select
Select Case e.DataCol.Name
    Case "原材料6_数量","原材料6_单价"
        e.DataRow("原材料6_总费用")=e.DataRow("原材料6_数量")*e.DataRow("原材料6_单价")
End Select

Select Case e.DataCol.Name
    Case "经费费用1_费用","经营费用2_费用","经营费用3_费用","经营费用4_费用","经营费用5_费用","经营费用6_费用","经营费用7_费用","经营费用8_费用","经营费用9_费用","经营费用10_费用"
        e.DataRow("其他经营费用合计")=e.DataRow("经费费用1_费用")+e.DataRow("经营费用2_费用")+e.DataRow("经营费用3_费用")+e.DataRow("经营费用4_费用")+e.DataRow("经营费用5_费用")+e.DataRow("经营费用6_费用")+e.DataRow("经营费用7_费用")+e.DataRow("经营费用8_费用")+e.DataRow("经营费用9_费用")+e.DataRow("经营费用10_费用")
End Select


Select Case e.DataCol.Name
    Case "折旧项目1_价值"
        e.DataRow("折旧项目1_年折旧")=e.DataRow("折旧项目1_价值")/60
End Select
Select Case e.DataCol.Name
    Case "折旧项目2_价值"
        e.DataRow("折旧项目2_年折旧")=e.DataRow("折旧项目2_价值")/120
End Select
Select Case e.DataCol.Name
    Case "折旧项目3_价值"
        e.DataRow("折旧项目3_年折旧")=e.DataRow("折旧项目3_价值")/60
End Select
Select Case e.DataCol.Name
    Case "折旧项目4_价值"
        e.DataRow("折旧项目4_年折旧")=e.DataRow("折旧项目4_价值")/12
End Select
Select Case e.DataCol.Name
    Case "折旧项目5_价值"
        e.DataRow("折旧项目5_年折旧")=e.DataRow("折旧项目5_价值")/120
End Select
Select Case e.DataCol.Name
    Case "折旧项目6_价值"
        e.DataRow("折旧项目6_年折旧")=e.DataRow("折旧项目6_价值")/120
End Select
Select Case e.DataCol.Name
    Case "折旧项目7_价值"
        e.DataRow("折旧项目7_年折旧")=e.DataRow("折旧项目7_价值")/12
End Select
Select Case e.DataCol.Name
    Case "折旧项目8_价值"
        e.DataRow("折旧项目8_年折旧")=e.DataRow("折旧项目8_价值")/12
End Select
Select Case e.DataCol.Name
    Case "折旧项目9_价值"
        e.DataRow("折旧项目9_年折旧")=e.DataRow("折旧项目9_价值")/12
End Select
Select Case e.DataCol.Name
    Case "折旧项目10_价值"
        e.DataRow("折旧项目10_年折旧")=e.DataRow("折旧项目10_价值")/12
End Select
Select Case e.DataCol.Name
    Case "折旧项目1_年折旧","折旧项目2_年折旧","折旧项目3_年折旧","折旧项目4_年折旧","折旧项目5_年折旧","折旧项目6_年折旧","折旧项目7_年折旧","折旧项目8_年折旧","折旧项目9_年折旧","折旧项目10_年折旧"
        e.DataRow("折旧项目合计年折旧")=e.DataRow("折旧项目1_年折旧")+e.DataRow("折旧项目2_年折旧")+e.DataRow("折旧项目3_年折旧")+e.DataRow("折旧项目4_年折旧")+e.DataRow("折旧项目5_年折旧")+e.DataRow("折旧项目6_年折旧")+e.DataRow("折旧项目7_年折旧")+e.DataRow("折旧项目8_年折旧")+e.DataRow("折旧项目9_年折旧")+e.DataRow("折旧项目10_年折旧")
End Select
 回到顶部
帅哥哟，离线，有人找我吗？
blackzhu
 小大  6楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级：狐仙 帖子：9879 积分：57634 威望：0 精华：15 注册：2008/9/1 9:45:00 		  发帖心情 Post By：2014/6/17 9:56:00 [显示全部帖子]

你这个代码 我跟你说 就算不卡了 计算个人觉得会有问题的.  因为是个行 就是当前行!

 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.05469 秒, 5 次数据查询