主题：请帮助解决：如何把纱号名称列的产品号自动变为品号列的数字？

请帮助解决：如何把纱号名称列的产品号自动变为品号列的数字？
此主题相关图片如下：160.jpg

 可以参考这段代码，放到命令窗口执行一遍。

Dim data As String = "abc11234-455555cccdddrrr"
'Dim data As String = "abc11234-455555-cccdddrrr"
Dim catchs As New System.Text.RegularExpressions.Regex("-{1}[0-9]+")
Dim mc As System.Text.RegularExpressions.MatchCollection = catchs.Matches(data)
msgbox(mc(0).Value.SubString(1))

谢谢，根据您给的代码问题已解决。

代码如下：代码放在

DataColChanged里面

 

Select Case e.DataCol.Name
    Case "产品名称"
        If e.NewValue Is Nothing Then Return
        Dim data As String = e.NewValue
        Dim catchs As New System.Text.RegularExpressions.Regex("-{1}[0-9]+")
        Dim mc As System.Text.RegularExpressions.MatchCollection = catchs.Matches(data)
        If mc.count > 0 Then e.DataRow("品号") = mc(0).value*(-1)
End Select