两个表：混凝土设计量，混凝土统计明细，混凝土设计量 的 实耗量列=混凝土统计明细 运输方量 列 统计之和，表混凝土统计明细表DataColChanged事件代码：
Select Case e.DataCol.Name Case "运输方量"
If e.NewValue <> e.OldValue
Dim pr As DataRow
Dim filter As String
filter = "[拌合站] = '" & e.DataRow("拌合站") & " ' And [施工日期] = '" & e.DataRow("施工日期") & " ' And [工程名称] = '" & e.DataRow("工程名称") & " ' And [分项工程] = '" & e.DataRow("分项工程") & " ' And [施工部位] = '" & e.DataRow("施工部位") & " ' And [强度等级] = '" & e.DataRow("强度等级") & " ' And [劳务队名称] = '" & e.DataRow("劳务队名称") & " '"
pr = DataTables("混凝土设计量").Find(filter)
If pr IsNot Nothing Then
DataTables("混凝土设计量").DataCols("工程名称").RaiseDataColChanged(pr)
End If
End If
End Select。
为什么：混凝土设计量表 的 实耗量 列 数据统计要慢一拍（混凝土统计明细 运输方量 列 数据边2次，混凝土设计量表 的 实耗量 列 统计的是第一次变动的结果，总是慢一拍，不是同步变动）
[此贴子已经被作者于2022/6/28 23:30:38编辑过]
加好友 
发短信
Post By：2022/6/28 23:24:00 [只看该作者]
