主题：[求助]判断并记录时间

If e.Col.Name = "合同回寄日期" Then     '记录合同回寄日期
    If e.Row("合同回寄与否") = True Then
        e.Row("合同回寄日期") = Date.Today
    End If
End If

 

如果逻辑列"合同回寄日期"是true,则"合同回寄日期"自动填充当天时间。上述程序怎么不对呢？

If e.Col.Name = "合同回寄与否" Then     '记录合同回寄日期
    If e.Row("合同回寄与否") = True Then
        e.Row("合同回寄日期") = Date.Today
    End If
End If

什么意思？

刷新看2楼

此主题相关图片如下：catch.jpg

我在表属性   datacolchanged 里面用成程序怎么提示如图呢？难道不应该放这里？

If e.DataCol.Name = "合同回寄与否" Then     '记录合同回寄日期
    If e.DataRow("合同回寄与否") = True Then
        e.DataRow("合同回寄日期") = Date.Today
    End If
End If

If e.DataCol.Name = "合同回寄与否" Then '记录合同回寄日期
    If e.DataRow("合同回寄与否") = True Then
        e.DataRow("合同回寄日期") = Date.Today
        If  e.DataRow("合同回寄与否") = False Then
            e.DataRow("合同回寄日期").isnull("合同回寄日期") = Nothing
        End If
    End If
End If

 

程序加句("合同回寄与否") = False，则("合同回寄日期")为空。

If e.DataCol.Name = "合同回寄与否" Then     '记录合同回寄日期
    If e.DataRow("合同回寄与否") = True Then
        e.DataCol("合同回寄日期") = Date.Today
    Else
        e.DataCol("合同回寄日期") = Nothing
    End If
End If