Datacolchanged事件
If e.DataCol.Name = "名称" Then If e.DataRow.IsNull("名称") Then e.DataRow("字母") = Nothing Else e.DataRow("字母") = GetPy(e.DataRow("名称").SubString(0,1), True) End IfEnd If