DataColChanged事件
If e.DataCol.Name = "第六列" Then If e.DataRow("第六列") = False e.DataRow("第七列") = Nothing Else e.DataRow("第七列") = e.DataRow("第一列) End IfEnd If