老师好，黄色标出的得不到计算结果，不知哪个地方错了。
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
查看总表金额，入住人数，每人分摊金额列类型，入住人数，每人分摊金额是否有数据。
改分开处理就要分开处理，不是所有代码硬挤到一起
Dim dt1 As DataRow = e.DataRow
Select Case e.DataCol.Name
Case "一号楼_分表本期", "一号楼_分表上期"
If dt1.IsNull("一号楼_分表本期") OrElse dt1.IsNull("一号楼_分表上期") Then
dt1("一号楼_消耗数") = Nothing
Else
dt1("一号楼_消耗数") = dt1("一号楼_分表本期") - dt1("一号楼_分表上期")
End If
Case "一号楼_消耗数", "单价"
dt1("一号楼_分表金额") = dt1("一号楼_消耗数") * dt1("单价")
Case "一号楼_入住人数", "每人分摊金额"
dt1("一号楼_总表金额") = dt1("一号楼_入住人数") * dt1("每人分摊金额")
Case "一号楼_分表金额", "一号楼_总表金额"
dt1("一号楼_累计缴费") = dt1("一号楼_分表金额") + dt1("一号楼_总表金额")
End Select