DataColChanged事件
If e.DataCol.Name = "第一列" Then If e.NewValue = Nothing Then e.DataRow("第二列") = Nothing Else e.DataRow("第二列") = e.newvalue.AddDays(6) End IfEnd If