主题：逻辑判断

 在datacolchanged事件写入代码

If e.DataCol.Name = "A"
    If e.DataRow("A") = True Then
        e.DataRow("B") = Date.Now
    Else
        e.DataRow("B") = Nothing
    End If  
End If