- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 单价乘积居然不能自动计算 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=110580)
-- 发布时间：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
-- 发布时间：2017/12/5 20:52:00
--
有没有是表达式列的？http://www.foxtable.com/webhelp/scr/2381.htm
删除项目里的bin目录，然后重启项目试试
-- 发布时间：2017/12/5 21:49:00
--
没有表达式列，累计完成量是通过出入库代码计算的
-- 发布时间：2017/12/5 21:59:00
--
上传实例看看
-- 发布时间：2017/12/5 22:45:00
--
修改工程项目下的技术措施费子表单价，统计表下措施明细子表的完成额累计完成额都不能自动计算
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:成本测算 - 171129 - 副本.rar |
-- 发布时间：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编辑过]
-- 发布时间：2017/12/5 23:14:00
--
统计表Datacolchanged事件里有2段“Systemready= false”代码导致其他事件无法触发
-- 发布时间：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))
Next
dr2("统计id") = e.DataRow("_Identify")
Next
\' systemready = True
End If
-- 发布时间：2017/12/6 8:54:00
--
1、注释以后，你每一次赋值，都会触发对应表的datacolchanged事件。有可能影响效率。
2、如果你需要触发某个表某个列的事件，可以在最后重置列 http://www.foxtable.com/webhelp/scr/1587.htm