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

 做个按钮执行代码

For Each dr As DataRow In DataTables("表b").Select("客人名字 is not null")
    Dim sumall As Double = 0
    For Each name As String In dr("客人名字").split(" ")
        Dim sum As Double = DataTables("表A").compute("sum(单价)", "购piao人 like '%" & name & "%'")
        If sum = 0 Then
            msgbox(name & " 不存在")
        End If
        sumall += sum
    Next
    dr("金额") = sumall
Next

Select Case e.DataCol.name
    Case "客人名字"

        Dim str As String = System.Text.RegularExpressions.Regex.replace(e.DataRow("客人名字"), "[0-9\.]", "")
        e.datarow("客人名字") = str
End Select

就这样做没问题。