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() 这句代码的效果不仅填一个日期，还需要带上现在的时间，具体到分。我已经把数据库的列类型改为 日期时间类型了。