改分开处理就要分开处理，不是所有代码硬挤到一起
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
加好友 
发短信
Post By：2025/3/27 8:47:00 [显示全部帖子]
