老师，标出的代码不计算
Dim dr As DataRow = e.DataRow
Select Case e.DataCol.Name
Case "总表_本期读数","总表_上期读数"
If dr.IsNull("总表_本期读数") OrElse dr.IsNull("总表_上期读数") Then
dr("总表_消耗数") = Nothing
Else
If dr("项目") <>"燃气" Then
dr("总表_消耗数") = dr("总表_本期读数") - dr("总表_上期读数")
Else
dr("总表_消耗数") = dr("总表_上期读数") - dr("总表_本期读数")
End If
End If
End Select
If e.DataCol.Name = "项目" Then
If e.DataRow.IsNull("项目") = False Then
Dim dr2 As DataRow = e.DataTable.Find("项目='" & e.NewValue & "' and 购气_日期 is not null and _sortkey <" & e.DataRow("_sortkey"),"_sortkey desc")
If dr2 IsNot Nothing Then
dr("总表_上期读数") = dr2("购气_数量") + dr("总表_上期读数")
End If
End If
End If
If e.DataCol.Name = "项目" Then
If e.DataRow.IsNull("项目") = False AndAlso e.DataRow.IsNull("抄表日期") = False Then
Dim dr1 As DataRow = e.DataTable.Find("项目='" & e.NewValue & "' and 抄表日期 is not null and _sortkey <" & e.DataRow("_sortkey"),"_sortkey desc")
If dr1 IsNot Nothing Then
e.DataRow("总表_上期读数") = dr1("总表_本期读数")
End If
End If
End If
加好友 
发短信
Post By：2024/12/16 14:03:00 [只看该作者]
此主题相关图片如下：计算.png
此主题相关图片如下：2024-12-16 19 50 21.jpg