以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]判断并记录时间  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=72007)

--  作者:260964006
--  发布时间:2015/7/22 9:26:00
--  [求助]判断并记录时间

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

 

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


--  作者:大红袍
--  发布时间:2015/7/22 9:33:00
--  

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

[此贴子已经被作者于2015/7/22 9:33:35编辑过]

--  作者:260964006
--  发布时间:2015/7/22 9:34:00
--  
什么意思?
--  作者:大红袍
--  发布时间:2015/7/22 9:35:00
--  
刷新看2楼
--  作者:260964006
--  发布时间:2015/7/22 9:41:00
--  

图片点击可在新窗口打开查看此主题相关图片如下:catch.jpg
图片点击可在新窗口打开查看
我在表属性   datacolchanged 里面用成程序怎么提示如图呢?难道不应该放这里?
--  作者:大红袍
--  发布时间:2015/7/22 9:44:00
--  

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

[此贴子已经被作者于2015/7/22 9:44:06编辑过]

--  作者:260964006
--  发布时间:2015/7/22 10:21:00
--  

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,则("合同回寄日期")为空。


--  作者:大红袍
--  发布时间:2015/7/22 10:22:00
--  

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

[此贴子已经被作者于2015/7/22 10:22:14编辑过]