主题：下面的代码，怎么改 能够识别文本编号？

参考代码

Dim str As String = "abcef0180"
Dim mc = System.Text.RegularExpressions.Regex.Matches(str, "[^1-9]+|[0-9]+")
If mc.count = 2 Then
    str = mc(0).value & mc(1).value + 1
    msgbox(str)
End If

汗，看4楼啊。

Dim str As String = Tables("发货单号.发货公斤").Compute("Max(bill)")

Dim mc = System.Text.RegularExpressions.Regex.Matches(str, "[^1-9]+|[0-9]+")
If mc.count = 2 Then
    str = mc(0).value & mc(1).value + 1
    msgbox(str)

    e.DataRow("bill") = sttr
End If