If e.DataCol.Name = "A" Then
If e.newvalue = Nothing then
e.datarow("B") = nothing
ElseIf e.NewValue.StartsWith("1") Then
e.datarow("B") = "正确"
Else
e.datarow("B") = "错误"
End If