单价乘积居然不能自动计算 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 单价乘积居然不能自动计算

共有1776人关注过本帖树形打印复制链接主题：单价乘积居然不能自动计算

chengjingliang

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

加好友

发短信

等级：童狐帖子：250 积分：1813 威望：0 精华：0 注册：2012/6/28 13:53:00

单价乘积居然不能自动计算 发帖心情

Post By：2017/12/5 19:15:00 [只看该作者]

单价乘积居然不能自动计算，在项目事件MainTableChanged中加入下面的代码，也是不行，只有重置代码才有效，什么情况呢？

'单价的乘积

Select Case e.DataCol.Name

Case "单价","完成量","累计完成量","单价调整"

e.DataRow("完成额") =IIf(e.DataRow("单价调整")=0,e.DataRow("单价")* e.DataRow("完成量"),e.DataRow("单价调整")* e.DataRow("完成量"))

e.DataRow("累计完成额") =IIf(e.DataRow("单价调整")=0,e.DataRow("单价")* e.DataRow("累计完成量"),e.DataRow("单价调整")* e.DataRow("累计完成量"))

e.DataRow("累计计划额") =e.DataRow("单价")* e.DataRow("累计完成量")

End Select

在项目事件MainTableChanged中加入下面的代码：也是不行，重置代码才有效，什么情况呢？

If MainTable.Name = "措施明细" Then

DataTables("措施明细").DataCols("单价").RaiseDataColChanged()

End If

有点蓝

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

加好友

发短信

等级：超级版主帖子：110582 积分：562806 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2017/12/5 20:52:00 [只看该作者]

有没有是表达式列的？http://www.foxtable.com/webhelp/scr/2381.htm

删除项目里的bin目录，然后重启项目试试

chengjingliang

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

加好友

发短信

等级：童狐帖子：250 积分：1813 威望：0 精华：0 注册：2012/6/28 13:53:00

Post By：2017/12/5 21:49:00 [只看该作者]

没有表达式列，累计完成量是通过出入库代码计算的

有点蓝

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

加好友

发短信

等级：超级版主帖子：110582 积分：562806 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2017/12/5 21:59:00 [只看该作者]

上传实例看看

chengjingliang

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

加好友

发短信

等级：童狐帖子：250 积分：1813 威望：0 精华：0 注册：2012/6/28 13:53:00

Post By：2017/12/5 22:45:00 [只看该作者]

修改工程项目下的技术措施费子表单价，统计表下措施明细子表的完成额累计完成额都不能自动计算

下载信息 [文件大小：下载次数： ]
点击浏览该文件:成本测算 - 171129 - 副本.rar

有点蓝

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

加好友

发短信

等级：超级版主帖子：110582 积分：562806 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2017/12/5 23:01:00 [只看该作者]

你的意思是修改工程项目下的技术措施费子表单价，然后措施明细子表的单价也跟着改变，然后重新计算完成额？

技术措施费Datacolchanged事件

'单价的乘积

Select Case e.DataCol.Name

Case "单价"

Dim Filter As String = "[项目ID]= '" & e.DataRow("项目ID") & "'"

Dim dr As DataRow = DataTables("措施明细").Find(Filter)

If dr IsNot Nothing Then

dr("单价") = e.DataRow("单价")

End If

End Select

[此贴子已经被作者于2017/12/5 23:02:42编辑过]

有点蓝

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

加好友

发短信

等级：超级版主帖子：110582 积分：562806 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2017/12/5 23:14:00 [只看该作者]

统计表Datacolchanged事件里有2段“Systemready= false”代码导致其他事件无法触发

chengjingliang

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

加好友

发短信

等级：童狐帖子：250 积分：1813 威望：0 精华：0 注册：2012/6/28 13:53:00

Post By：2017/12/6 8:16:00 [只看该作者]

统计表Datacolchanged事件里有2段“Systemready= false”代码导致其他事件无法触发，我把它们注释掉有什么不良后果吗？

''整体复制单价措施费至措施明细

If e.DataCol.name = "项目id" Then

e.DataRow.save

' systemready = False

Dim Cols7() As String ={"技术措施ID","措施名称","单位","数量","单价","金额","项目ID"}

Dim Cols8() As String ={"技术措施ID","措施名称","单位","数量","单价","金额","项目ID"}

For Each dr1 As DataRow In DataTables("技术措施费").Select("项目ID= '" & e.DataRow("项目ID") & "'")

Dim dr2 As DataRow = DataTables("措施明细").find("项目ID= '" & dr1("项目ID") & "' and 技术措施ID= '" & dr1("技术措施ID") & "'")

If dr2 Is Nothing Then dr2 = DataTables("措施明细").AddNew()

For i As Integer = 0 To Cols7.Length -1

dr2(Cols8(i)) = dr1(Cols7(i))

dr2("统计id") = e.DataRow("_Identify")

' systemready = True

End If

有点甜

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

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2017/12/6 8:54:00 [只看该作者]

1、注释以后，你每一次赋值，都会触发对应表的datacolchanged事件。有可能影响效率。

2、如果你需要触发某个表某个列的事件，可以在最后重置列 http://www.foxtable.com/webhelp/scr/1587.htm

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

主题：单价乘积居然不能自动计算