主题：列之间替代问题

If e.DataCol.Name = "姓名" Then
    If e.NewValue = Nothing Then
        e.DataRow("拼音") = Nothing
    Else
        e.DataRow("拼音") = GetPy(e.NewValue, True)
    End If
End If