主题：未将对象引用设置到对象的实例

Dim dr As DataRow
dr = DataTables("门店信息").Find("门店结算编号 = '" & e.newvalue & "'")
If dr IsNot Nothing Then
    e.DataRow("后台销售统计_含税销售额") = e.DataRow("网站显示_不含税金额") * 1.13
    e.DataRow("后台销售统计_折扣率")  = dr("fa piao扣点_后台扣点")
    e.DataRow("后台销售统计_折扣金额") = e.DataRow("后台销售统计_含税销售额") * e.DataRow("后台销售统计_折扣率")
    e.DataRow("后台销售统计_开piao金额") = e.DataRow("后台销售统计_含税销售额") - e.DataRow("后台销售统计_折扣金额")
    e.DataRow("前台销售统计_含税销售额") = e.DataRow("网站显示_不含税金额") / 0.84 * 1.13
    e.DataRow("前台销售统计_折扣金额") = e.DataRow("前台销售统计_含税销售额") - e.DataRow("后台销售统计_含税销售额")
    e.DataRow("前台销售统计_折扣率") = e.DataRow("前台销售统计_折扣金额") / e.DataRow("前台销售统计_含税销售额")
End If

你红色什么意思？不是修改了就计算了么？