以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]日期设置  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=185023)

--  作者:jk36
--  发布时间:2023/1/31 11:30:00
--  [求助]日期设置

图片点击可在新窗口打开查看此主题相关图片如下:t3.png
图片点击可在新窗口打开查看

图片点击可在新窗口打开查看此主题相关图片如下:t2.png
图片点击可在新窗口打开查看
在【增加行】按钮中进行日期设置DateTime,分不能显示,不知为何?

图片点击可在新窗口打开查看此主题相关图片如下:t1.png
图片点击可在新窗口打开查看
代码如下,
With Tables("表A")
    If .Current Is Nothing OrElse .Current.DataRow.RowState = DataRowState.Unchanged Then \'如果当前行未曾修改
        Tables("表A").AddNew()
    End If
End With
Dim dp1 As WinForm.DateTimePicker = e.Form.Controls("DateTimePicker1")
dp1.DateTimeFormat = DateTimeFormatEnum.DateTime
Tables("表A").Current("今天日期") = Date.Today()

--  作者:jk36
--  发布时间:2023/1/31 11:30:00
--  
表属性也设置了
--  作者:jk36
--  发布时间:2023/1/31 11:31:00
--  

图片点击可在新窗口打开查看此主题相关图片如下:t4.png
图片点击可在新窗口打开查看

--  作者:jk36
--  发布时间:2023/1/31 11:35:00
--  
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:今天日期.zip


--  作者:有点蓝
--  发布时间:2023/1/31 11:36:00
--  
http://www.foxtable.com/webhelp/topics/1337.htm

Now返回计算机的当前时间(含日期)。
Today返回计算机的当前日期,不含时间。