datacolchanged事件
If e.datacol.name = "A" AndAlso e.datarow("A").length > 10 then
e.datarow("B") = e.datarow("A").substring(2, 10)
End If