以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  [求助]临时表获得的时间总是不对  (http://www.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
--  
谢谢，