主题：[求助]规范数字串

回复4楼

If e.DataCol.name = "案号" Then
    Dim dr = e.DataRow
    If dr("案号") > "" Then
        Dim mc = System.Text.RegularExpressions.Regex.Matches(dr("案号"), "(?<=.+?)[0-9]+(?=号)")
        If mc.count > 0 Then
            Dim i As Integer = val(mc(0).value)
            dr("调整后案号") = System.Text.RegularExpressions.Regex.replace(dr("案号"), "(?<=.+?)[0-9]+(?=号)", Format(i, "0000"))
        End If
    End If
End If