编写Datacolchanged事件
If e.DataCol.Name = "第二列" Then If e.NewValue = Nothing Then e.DataRow("第三列") = Nothing Else e.DataRow("第三列") = ReadBirthDay(e.NewValue) End IfEnd If
http://www.foxtable.com/help/topics/0320.htm