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

 做个按钮执行代码

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 "总付款","购piao人"

        If e.DataRow.IsNull("购piao人") Then

            e.DataRow("单价") = Nothing

        Else

            Dim nstr As String = ""

            Dim str As String = System.Text.RegularExpressions.Regex.replace(e.DataRow("购piao人"), "[0-9\.]", "")

-----------------------------------------------------------------------------------------------------------

这句非常巧妙，可是当我的名单里 除了1.人名  还有 7人名 8人名  应该怎么统一改成“ ”呢？

请大师作答？
此主题相关图片如下：8-2 拷贝.jpg

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

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