主题：数字字母单独提取

datacolchanged事件

Select Case e.DataCol.Name
    Case "第一列"
        If e.DataRow.IsNull("第一列") Then
            e.DataRow("第二列") = Nothing
            e.DataRow("第三列") = Nothing
        Else
            Dim str As String = e.DataRow("第一列")
            Dim ary() As String = str.split("-")
            Dim mc = System.Text.RegularExpressions.Regex.Matches(ary(1), "[0-9]+|[a-zA-Z]+")
            If mc.count = 3 Then
                e.DataRow("第二列") = mc(0).value
                e.DataRow("第三列") = mc(1).value
                e.DataRow("第四列") = mc(2).value
            End If
            e.DataRow("第五列") = ary(2)
            e.DataRow("第六列") = ary(3)
        End If
End Select