专家坐堂-[求助]临时表获得的时间总是不对Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]临时表获得的时间总是不对  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=119229)

--  作者：616808120
--  发布时间：2018/5/21 8:18:00
--  [求助]临时表获得的时间总是不对
通过代码生成一个临时表，其中”列2“为日期，格式为datelongtime,结果生成的日期是与系统一致，但时间总是00：00：00，不能与系统保持一致，请高手帮忙看一下。
代码：
Dim dtb As New DataTableBuilder("test1")
dtb.AddDef("列1", Gettype(String), 32)
dtb.AddDef("列2", Gettype(Date))
dtb.AddDef("列3", Gettype(String), 17)
dtb.Build()
MainTable= Tables("test1")
Tables("test1").AddNew()
Tables("test1").Current ("列2") = Date.Now
DataTables("test1").DataCols("列2").SetDateTimeFormat(DateTimeFormatEnum.DatelongTime)
Tables("test1").Current ("列1") = Format(Tables("test1").Current ("列2"),"yyyyMMddhhMMss")
Tables("test1").Current ("列3") = "1" & Tables("test1").Current ("列1")

显示的结果时间总是0

--  作者：有点甜
--  发布时间：2018/5/21 8:41:00
--

Dim dtb As New DataTableBuilder("test1")

dtb.AddDef("列1", Gettype(String), 32)

dtb.AddDef("列2", Gettype(Date))

dtb.AddDef("列3", Gettype(String), 17)

dtb.Build()

DataTables("test1").DataCols("列2").SetDateTimeFormat(DateTimeFormatEnum.DatelongTime)

MainTable= Tables("test1")

Tables("test1").AddNew()

Tables("test1").Current ("列2") = Date.Now

Tables("test1").Current ("列1") = Format(Tables("test1").Current ("列2"),"yyyyMMddhhMMss")

Tables("test1").Current ("列3") = "1" & Tables("test1").Current ("列1")

--  作者：616808120
--  发布时间：2018/5/21 12:18:00
--
谢谢，