求助：代码补正 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 求助：代码补正

共有2928人关注过本帖树形打印复制链接主题：求助：代码补正

李孝春

小大 11楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：九尾狐帖子：2472 积分：17346 威望：0 精华：0 注册：2013/1/31 0:03:00

回复：（Bin）直接在表中的DataColChanged事件写入代码... 发帖心情

Post By：2015/2/3 11:38:00 [只看该作者]

求纠正因为楼上那地址和我的理想思路不一样谢谢

Bin

小大 12楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：35433 积分：178524 威望：0 精华：3 注册：2013/3/30 16:36:00

Post By：2015/2/3 11:40:00 [只看该作者]

一样的

李孝春

小大 13楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：九尾狐帖子：2472 积分：17346 威望：0 精华：0 注册：2013/1/31 0:03:00

Post By：2015/2/3 11:42:00 [只看该作者]

Select Case e.DataCol.Name
    Case "含流转税销售收入合计","总成本合计"
        Dim r As Row =Tables("产品价格").Current
        Dim Sum As Double
        Dim Sum1 As Double
        Dim Sum2 As Double
        Sum = Tables("销售和成本计划表").Compute("Sum(成本_总成本)","[计划书编号] = '" & r2("计划书编号") & "'")
        Sum1 = Tables("销售和成本计划表").Compute("Sum(销售_含流转税销售收入)","[计划书编号] = '" & r2("计划书编号") & "'")
        Sum2 = sum/sum1
        r("成本价")=r("销售价")*sum2

这个只能计算第一行的数据不能计算所有行求解

Bin

小大 14楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：35433 积分：178524 威望：0 精华：3 注册：2013/3/30 16:36:00

Post By：2015/2/3 11:54:00 [只看该作者]

看10楼帮助,你这样只是计算当前行

下一主题 >> << 上一主题

总数 14 上一页 1 2

主题：求助：代码补正