主题：请教一个统计问题！

If e.DataCol.Name = "名单" Then
    Dim str As String = e.NewValue
    str =  str.Replace(" ",",")

    Dim Ls() As String
    ls = str.Split(",")
    Dim zj As Double
    For i As Integer = 0 To ls.Length - 1

        zj = zj + DataTables("表A").Compute("sum(单价)","名单 like '%" & ls(i) & "%'")

    Next
    e.DataRow("总价")  = zj
    'zj = 0
End If