SQLCompute只能统计已经保存的数据。混凝土统计明细里加个保存代码
Select Case e.DataCol.Name Case "运输方量"
e.DataRow.save
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 Select。
如果为了防止"混凝土设计量"对应的数据没有加载，还可以这样
Select Case e.DataCol.Name Case "运输方量"
e.DataRow.save
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)
else
dim drr as List(of datarow) = DataTables("混凝土设计量").appendload(filter) ‘追加数据’
if drr.count > 0 then
DataTables("混凝土设计量").DataCols("工程名称").RaiseDataColChanged(drr(0))
end if
End If
End Select。
加好友 
发短信
Post By：2022/6/28 23:35:00 [显示全部帖子]
