Datacolchanged事件
If e.DataCol.Name = "第一列" Then If e.NewValue <> Nothing Then e.DataRow("第二列") = ReadBirthDay(e.NewValue) End IfEnd If