再简化一下:
If e.DataCol.Name = "第一列" Then If e.NewValue = Nothing Then e.DataRow("第二列") =Nothing Else e.DataRow("第二列") = eval(e.NewValue) End IfEnd If