主题：这句代码好像把中间的数字也去掉了，我只要把班名称后面的数字去掉，怎么改？

For Each dr As DataRow In DataTables("学生信息表").DataRows
    Dim reg As new System.Text.RegularExpressions.Regex("(?<=.*[\u4e00-\u9fa5]+)[0-9]+")
    Dim str = reg.replace(dr("班名称"), "")
    dr("班名称中文") = str
Next

这句代码好像把中间的数字也去掉了，我只要把班名称后面的数字去掉，怎么改？

参考这儿：

http://www.cnblogs.com/liangsetian/archive/2011/07/05/2098280.html

Dim str As String = "2014中文10班34343434343434"
Dim reg As new System.Text.RegularExpressions.Regex("(?<=.*[\u4e00-\u9fa5]+)[0-9]+$")
str = reg.replace(str, "")
msgbox(str)

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

For Each dr As DataRow In DataTables("学生信息表").DataRows
    Dim reg As new System.Text.RegularExpressions.Regex("(?<=.*[\u4e00-\u9fa5]+)[0-9]+$")
    Dim str = reg.replace(dr("班名称"), "")
    dr("班名称中文") = str
Next