主题：为什么不计算

为什么不计算？

If e.DataCol.IsNumeric Then
    If e.NewValue = 0 Then
        e.NewValue = Nothing
    End If
End If

Dim ds As DataTable=DataTables("电量统计表")
Dim dr As DataRow
        '否则在产品表查找同名的产品行,将找到的行赋值给变量dr
        dr = DataTables("电量统计表").Find("[成本费用项目] = '" & e.NewValue & "'")
        If dr IsNot Nothing Then '如果找到了同名的产品行,也就是dr不是Nothing
            e.DataRow("电力_电量") = dr("用电量")
           e.DataRow("电力_金额") = dr("用电金额")
        End If

谢谢