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

此主题相关图片如下：image 1.jpg

附件：

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:数据.table

For Each dr As DataRow In DataTables("数据").Select("")
    Dim mc = System.Text.RegularExpressions.Regex.Matches(dr("案号"), "(?<=.+?)[0-9]+(?=号)")
    Dim i As Integer = val(mc(0).value)
    dr("调整后案号") = System.Text.RegularExpressions.Regex.replace(dr("案号"), "(?<=.+?)[0-9]+(?=号)", Format(i, "0000"))
Next

'---------

For Each dr As DataRow In DataTables("数据").Select("")
    Dim mc = System.Text.RegularExpressions.Regex.Matches(dr("调整后案号"), "(?<=.+?)[0-9]+(?=号)")
    dr("案号") = System.Text.RegularExpressions.Regex.replace(dr("调整后案号"), "(?<=.+?)[0-9]+(?=号)", cstr(val(mc(0).value)))
Next

谢谢版主！

老师，我想把按钮代码放入“数据”表的DataColChanged，当[案号]列变动时，[调整后案号]相应变化，这段代码应该怎样修改？

For Each dr As DataRow In DataTables("数据").Select("")
    Dim mc = System.Text.RegularExpressions.Regex.Matches(dr("案号"), "(?<=.+?)[0-9]+(?=号)")
    Dim i As Integer = val(mc(0).value)
    dr("调整后案号") = System.Text.RegularExpressions.Regex.replace(dr("案号"), "(?<=.+?)[0-9]+(?=号)", Format(i, "0000"))
Next

谢谢！

回复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