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

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