写在Datacolchanged事件
If e.DataCol.Name = "单位名称" AndAlso e.NewValue <> Nothing Then
e.DataRow("拼音") = GetPY(e.newvalue)
End If