Select Case e.DataCol.name Case "第一列" If e.NewValue IsNot Nothing Then Dim mc = System.Text.RegularExpressions.Regex.Matches(e.newValue, "[0-9]{1}[a-zA-Z]{1}|[0-9]{1}") Dim str As String For i As Integer = mc.count - 1 To 0 Step -1 str &= mc(i).Value Next e.DataRow("第二列") = str End If End Select