DataColChanged事件
If e.DataCol.name = "请假" Then e.DataRow("出勤天数") = Date.DaysInMonth(Date.Today.Year, Date.Today.Month) - e.NewValueEnd If