主题：代码

Dim dr As DataRow = e.DataRow
Select Case e.DataCol.Name
    Case "方式_外协_机加工","方式_外协_下料机加工","方式_自制_机加工","方式_自制_下料机加工","方式_内协_机加工","方式_内协_下料机加工"
        If dr.IsNull("方式_外协_机加工") AndAlso dr.IsNull("方式_外协_下料机加工") AndAlso dr.IsNull("方式_自制_机加工") AndAlso dr.IsNull("方式_自制_下料机加工") AndAlso dr.IsNull("方式_内协_机加工") AndAlso dr.IsNull("方式_内协_下料机加工") Then
            dr("制单日期") = Nothing
        Else
            dr("制单日期") = Date.Today
        End If
End Select

"方式_外协_机加工","方式_外协_下料机加工","方式_自制_机加工","方式_自制_下料机加工","方式_内协_机加工","方式_内协_下料机加工"均为逻辑列

都为空时“制单日期”为空，任意勾选一个则 dr("制单日期") = Date.Today

按上面的编码，勾选以后可自动生成“制单日期”，但去除勾选以后，“制单日期”却还显示！

要怎么改，去除勾选后，“制单日期”也去除！