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