If e.DataCol.name = "制造产品号" AndAlso e.newvalue > "" Then
Dim zml() As String = {"字母列1", "字母列2"}
Dim szl() As String = {"数字列1", "数字列2"}
Dim s As String = e.newvalue
Dim p As String = "\d+"
Dim mc = System.Text.RegularExpressions.Regex.Matches(s, p)
For i As Integer = 0 To mc.count-1
e.DataRow(szl(i)) = mc(i).value
Next
p = "[a-zA-Z]+"
mc = System.Text.RegularExpressions.Regex.Matches(s, p)
For i As Integer = 0 To mc.count-1
e.DataRow(zml(i)) = mc(i).value
Next
p = "(?<=G)\d+(?=S)"
mc = System.Text.RegularExpressions.Regex.Matches(s, p)
For i As Integer = 0 To mc.count-1
e.DataRow("长度") = mc(i).value
Next
End If
加好友 
发短信
Post By：2016/12/22 11:36:00 [只看该作者]
