DataColChanged事件
If e.DataCol.name = "第二列" Then If e.NewValue > "" Then e.DataRow("第三列") = GetPy(e.NewValue) Else e.DataRow("第三列") = nothing End IfEnd If