主题：体检项目多选，价格如何计算合计

If e.DataCol.Name = "检查项目明细" Then
    Dim p As String = "销售价格"
    If e.NewValue Is Nothing Then
        e.DataRow(p) = Nothing
    Else
        Dim dr As DataRow
        Dim Multi As String = e.newvalue
        Dim Values() As String
        Values = Multi.split(",")
        Dim sum As Double = 0
        For Each s As String In values
            dr = DataTables("检查项目销售价格").Find("[检查项目明细] = '" & s & "'")
            If dr IsNot Nothing
                sum += dr(p)
            End If
        Next
        e.DataRow(p) = sum
    End If
End If

?谢谢老师！

老师您好，按照指导代码修改后出现下面问题，【检查项目明细】列为多选项目，单选和多选检查项目明细后均出现以下问题，与检查项目明细相关的两段代码如下，不知问题在哪？谢谢！
此主题相关图片如下：屏幕快照 2019-04-12 下午10.27.03.png


此主题相关图片如下：屏幕快照 2019-04-12 下午10.28.55.png


此主题相关图片如下：屏幕快照 2019-04-12 下午10.29.11.png

filter条件里面的dr改为e.datarow

谢谢老师！

老师您好，有的体检套餐价格和检查项目价格不能计算出来？不知问题在哪？截图中最后一行没有计算出来，其余的有计算出来，选择的医疗机构、项目都一样。谢谢！
此主题相关图片如下：屏幕快照 2019-04-23 上午10.52.13.png

1、你重置列重新计算了没有？

 

2、做一个出错的例子发上来测试。