datacolchanged事件
Select Case e.DataCol.Name
Case "年", "月", "房号"
If e.DataRow.IsNull("年") OrElse e.DataRow.IsNull("月") OrElse e.DataRow.IsNull("房号") Then
e.DataRow("月初数") = Nothing
Else
Dim y As Integer = e.DataRow("年")
Dim m As Integer = e.DataRow("月")
Dim d As Date = New Date(y, m, 1)
d = d.AddMonths( - 1)
Dim dr As DataRow = e.DataTable.Find("年='" & d.Year & "' and 月='" & d.Month & "' and 房号='" & e.DataRow("房号") & "'")
If dr Is Nothing Then
e.DataRow("月初数") = 0
Else
e.DataRow("月初数") = dr("月末数")
End If
End If
Case "月末数", "月初数"
If e.DataRow.IsNull("月末数") OrElse e.DataRow.IsNull("月初数") Then
e.DataRow("用电量") = Nothing
Else
e.DataRow("用电量") = e.DataRow("月末数") - e.DataRow("月初数")
End If
End Select
加好友 
发短信
Post By：2025/1/4 14:25:00 [只看该作者]
