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

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

代码如下：代码放在

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