主题：有点甜 老师 无谢谢

datacolchanging事件

If e.NewValue <> Nothing Then
    Dim ary = e.NewValue.split(";")
    If ary.length = 2 Then
        e.newvalue = ary(1)
    End If
End If