专家坐堂-临时表列格式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=162170)

--  作者：455631117
--  发布时间：2021/4/7 19:02:00
--  临时表列格式
请问，在创建临时表时，我能不能把列格式设置为时间格式，而不是日期

Dim dtb As new DataTableBuilder("打卡统计") \'创建临时表
dtb.AddDef("考勤号码", Gettype(String), 10)
dtb.AddDef("姓名", Gettype(String), 32)
dtb.AddDef("出勤日期", Gettype(Date))
For i As Integer = 1 To 20
Dim s As String = "打卡时间"
s = s & i
dtb.AddDef(s, Gettype(Date))
Next
dtb.Build()
MainTable= Tables("打卡统计") \'临时表创建完成

--  作者：455631117
--  发布时间：2021/4/7 19:24:00
--
看了看帮助，已经处理好了，在临时表生成之后对列格式进行设置，然后再填入数据
Dim dtb As new DataTableBuilder("打卡统计") \'创建临时表
dtb.AddDef("考勤号码", Gettype(String), 10)
dtb.AddDef("姓名", Gettype(String), 32)
dtb.AddDef("出勤日期", Gettype(Date))
For i As Integer = 1 To 20
Dim s As String = "打卡时间"
s = s & i
dtb.AddDef(s, Gettype(Date))
Next
dtb.Build()
MainTable= Tables("打卡统计") \'临时表创建完成
For i As Integer = 1 To 20
Dim s As String = "打卡时间"
s = s & i
DataTables("打卡统计").DataCols(s).SetDateTimeFormat(DateTimeFormatEnum.Time)
Next