以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  请老师帮忙日期时间类型的数据怎样自动添加???  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=192158)

--  作者:xiaofei_00
--  发布时间:2024/5/31 17:21:00
--  请老师帮忙日期时间类型的数据怎样自动添加???
If User.Group = "会计" Then
    If Tables("ftdjb").current.IsNull("审核") Then
        MessageBox.Show("不能批准还未通过审核的行.")
    Else
        Tables("ftdjb").Current("批准") = User.Name
        Tables("ftdjb").Current("批准日期") = Date.Today()
        Tables("ftdjb").Current.Save()
    End If
Else If User.Group = "计划" Then
    If Tables("ftdjb").current.IsNull("审核") Then
        MessageBox.Show("不能批准还未通过审核的行.")
    Else
        Tables("ftdjb").Current("批准") = User.Name
        Tables("ftdjb").Current("批准日期") = Date.Today()
        Tables("ftdjb").Current.Save()
    End If
Else
    MessageBox.show("你无批准权限!")
End If

老师帮忙看一下,我想Tables("ftdjb").Current("批准日期") = Date.Today()  这句代码的效果不仅填一个日期,还需要带上现在的时间,具体到分。我已经把数据库的列类型改为 日期时间类型了。

--  作者:有点蓝
--  发布时间:2024/5/31 17:27:00
--  
http://www.foxtable.com/webhelp/topics/0256.htm

Tables("ftdjb").Current("批准日期") = Date.now