DataColChanged事件
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