老师好，黄色标出的得不到计算结果，不知哪个地方错了。
Dim dt1 As DataRow = e.DataRow
Select Case e.DataCol.Name
Case "一号楼_分表本期","一号楼_分表上期","一号楼_消耗数","一号楼_入住人数","一号楼_分表金额","一号楼_总表金额","单价","每人分摊金额"
If dt1.IsNull("一号楼_分表本期") OrElse dt1.IsNull("一号楼_分表上期") Then '如果数量或单价为空
dt1("一号楼_消耗数") = Nothing
dt1("一号楼_分表金额") = Nothing
dt1("一号楼_总表金额") = Nothing
dt1("一号楼_累计缴费") = Nothing
Else
dt1("一号楼_消耗数") = dt1("一号楼_分表本期") - dt1("一号楼_分表上期")
dt1("一号楼_分表金额") = dt1("一号楼_消耗数") * dt1("单价")
dt1("一号楼_总表金额") = dt1("一号楼_入住人数") * dt1("每人分摊金额")
dt1("一号楼_累计缴费") = dt1("一号楼_分表金额") + dt1("一号楼_总表金额")
End If
End Select
加好友 
发短信
Post By：2025/3/26 19:44:00 [显示全部帖子]
