主题：算术平方根

If  e.DataCol.Name = "第一列" Then
    If e.newvalue = Nothing Then
        e.DataRow("第二列") = Nothing
    Else
        e.DataRow("第二列") = Math.Sqrt(e.DataRow("第一列"))
    End  If
End If